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PREFACE 


This book is the result of му experience with first a ZX81 
computer and then a Timex Sinclair 1000 computer. The ZX81 
is the product of Sinclair Ltd. in England. Except for a 
2K instead of a 1K memory, the two are functionally the 
same. However, the 2K sakes a world of difference. Most 
of 1K Memory is used up for internal purposes or needed 
for the TV screen display. This book is written for a 
computer with 2K memory. 


The purpose of this book is to look at the computer from 
as many viewpoints as possible. Topics include the begin- 
ning of BASIC, hardware, programming, internal files, and 
machine code. Much of the material is for the beginner. 
Some sore advanced material is given as relates directly 
to the Timex Sinclair 1000 computer, for those who wish to 
pursue some (or all) of the topics. 


There 15 a glossary of computer terms at the end of this 
book. Use it together with your User Manual furnished with 
your computer. 


А number of other books on the 2Х81 or Timex Sinclair 1000 
were written in England and republished in the USA. One 
difference which may be confusing is the reference to 
NEWLINE. This term was changed to ENTER for the US models. 
It is the key called RETURN on most keyboards. If you are 
looking for more refernce material, you have an 8K ROM 
and 2K memory. (A Sinclair ZX80 had a 4K ROM). Many of 
the programs written for 16K memory (add-on) will work on 
your 2K computer. 


The student of computer hardware will need digital logic 


design and 780 microprocessor books. The information given 
in Chapter 2 should give you an idea of what is involved. 


Beware of BASIC programming books not written for the 
Sinclair BASIC unless you intend to program on other comput- 
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ers, Most BASIC s use DATA and READ statements which the 
1000 does not have. If you start with Sinclair BASIC vou 
will find it easy to learn and easy to qo on to other 
computers, 


Lots of programs have been written for Sinclair BASIC. 
Look for programs written for the ВК ROM. There are many 
sources: books, magazines, and user clubs. 


If you wish io get into machine code, get а book on the 
disassembled 2Х81 8K ROM. Also you will need a book on 
ihe 280 microprocessor assembly language. 


Have a bali with your Timex Sinclair 1000 computer. You'll 
get out as much as you put in. Happy computin”. 
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FIRST TIME TURN-ON 


The following procedure will check out your 
computer for proper operation. 


1. 


2. 


Set-up your computer, switch box, and 
power cord as shown in your User Manual. 


The inverse K (white on black square) 
letter shows that most of your computer 
is working. : 


Io test the keyboard, press the P key 
and the word PRINT will appear. An 
inverse L will follow the word PRINT. 
This shows the computer is expecting 
letters to be typed in next. 


Hold down the shift key and press the 
P key again. The result is a ". 


Type in ОНЕКТ and another ". You should 
now have PRINT "ОМЕТ" and an inverse L. 
This tests that all the keyboard lines 
are working. 


Press the key Marked ENTER. The ОМЕКТ 
will appear at the top of the screen. 


бо to Chapter 3 of your User Manual and 
follow the examples. Learn to use the 
DELETE key (shifted 0). 


If all functions are working, you are 
now ready to type in a program or do 
a calculation. Start computin’. 


CHAPTER 1 
INTRODUCTION 
ЗСОРЕ 


This book is about the Timex (Е) Sinclair (TM) 1000 comput- 
er (or simply the 1000). It is truly a terrific little 
machine with giant capabilities. It is of the class of 
general purpose computers which means it is easy to program 
and easy to add external equipment. You are not bound to 
КОМ pack cartridges. The 1000 can be used to play games, 
learn BASIC programming, learn computer hardware, solve 
problems, or act as а controller. It is inexpensive enough 
to be dedicated to a single task. In the following chapt- 
er we will look at the computer from several different 
viewpoints. 


ORGANIZATION OF THIS BOOK 

This chapter is an overview of the 1000. It includes a 
brief physical description of the unit and a look at the 
development of the BASIC language. 

Chapter 11 discusses the 1000 from the hardware viewpoint. 
This includes the TV set, power supply, cassette recorder, 
computer circuits, and the edge connector interface. An 


interface example with software is included. 


Chapter III tells you how to operate your computer includ- 
ing writing menus for tape cassette files. 


Chapter 19 is оп how to write programs using BASIC. 
Chapter V talks about animation and game programs. 


Chapter VI gets into hou the computer works from the CPU to 
the way RAM files are organized, 


Chapter VII is a hodgepodge of useful or just clever ideas. 
Chapter VIII is an easy start on hexadecimal code. 
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PHYSICAL DESCRIPTION 


The computer is about 6 3/8 inches wide, 6 7/8 inches deep, 
and 1 3/8 inches high at the rear. А two inch clearance is 
needed on the left side for electrical connections. If 
attachments are used, space will be needed to the rear. A 
40 key pressure-sensitive мемргапе keyboard is about 6 in- 
ches wide and 2 inches deep. Connectors are: 


9UDC - Use power supply provided or see Chapter 11. 


МІС - Jack for saving programs on cassette tape. 
EAR - Jack for loading programs from cassette tape, 
ТУ - RCA phono type jack for connection to TV. 


No name - rear edge connection for add-ons. 


A switch underneath selects either ТУ channel 2 or 3 for 
best reception. Inside is а 1804 CPU, ВК КОМ with BASIC, 
2K RAM and a special 1/0 i. c. for the keyboard, ТУ 
display, and the cassette interface. 


Connecting cables for a TV set and for a cassette tape 
recorder are supplied. 


BASIC 


The BASIC language was developed at Dartmouth College in 
1965 under a qrant from the National Science Foundation. 
The work was directed by Professors John б Kemeny and 
Thomas E. Kurtz. BASIC was popularized by General Electric 
time-sharing service. This original BASIC was designed to 
provide numerical answers to nuserical problems. Тһе паме 
BASIC is an acronym for Beginners All-purpose Symbolic 
Instruction Code. 


Since the time-sharing service used a teletype, BASIC used 
capital letters. Each line was called a statement. Lines 
were numbered for editing. A typical line would be: 


0019 LET X=5A 
Line numbers were usually multiples of 10 so that lines 
could be inserted if needed later. The statement began 


with an English word followed by an algebraic expression. 
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In the example, X is the unknown numeric variable, Š is a 
constant, and А a given numeric variable. At first only а 
feu abbreviations crept in, such as REM for remark, DIM 
for dimension, and GOSUB for "qo to a subroutine". fis the 
primary input and output device was the teletype, the use 
of the word PRINT was appropriate for printing messages. 


8 feu years later, string variables were added to EASIC. A 
$ is used to denote a string of characters. Words like 
STR$ and CHR$ were added to the BASIC language. A string 
variable can be handled by algebraic functions the sane as 
numeric variables. This enables BASIC programs to sort 

а list of names, compare words, etc. At this point in 
tine, the language became useful for many applications be- 
yond just solving numeric problems. 


As BASIC uas improved and adapted for various computers, 
many dialects were developed. The fundamental algebraics 
were kept but many extensions, and formatting, file, and 
editing commands were added. Usually file and editing 
commands are dependent on the computer hardware. This 
makes it difficult to adapt a BASIC program from one con- 
puter to another. However, the idea can often be adapted. 


The change from teletype to a TY display changed FRINT to 
mean "show on the ТУ set", If you have a printer, LPRINT 
will do the printing. LPRINT stands for line printer and 
these are only used on giant computers. So the BASIC 
language becomes richer and more difficult to learn. 


The American National Standards Institute has published a 
proposed "minimal BASIC". Table 1-1 is a comparison with 
1990 BASIC. The 1000 has dropped the statements DATA, READ, 
and RESTORE. Ргодганмег= who have learned other BASICs 
probably will have great difficulty writing a program with- 
out these statements. New programmers won't Miss thea at 
all. The original idea goes back to batch processing where 
data was fed into large computers for processing. The 
advent of real time personal computers has diminished the 
need for these statements. 


A computer program must be converted to machine code before 
it can be acted on. The two ways are called "interpreted" 
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and "compiled". The 1000 is mostly interpreted, which means 
the program is converted to machine code line-by-line as 

it is run. Compiled would sean the entire progran was 
converted and then run. Interpreted languages are easier 
to use but do not run as fast as compiled languages. Most 
of the original algebraic words and functions together with 
string variables are used by the 1000. 


Your 1000 computer has many extensions to the original 
BASIC language. These include PEEK, POKE, and USR which 
permit direct access to the internal workings and machine 
code. Numerical names may be of any length, strings мау be 
of any length, the line length of a statement мау be of any 
length. Numbers may be in the range of + or - 3X10E-39 to 
+ or - 2Х10Е38 to 9 1/2 decimal digits. FOR/NEXT loops мау 
be nested 26 deep. All BASIC words, functions, and con- 
mands are Marked on the keyboard. 


Table 1-1. Minimal BASIC/1000 BASIC 


Proposed | Comment 


(not used) LET or GOSUB 
(not used) Use GOSUB 
|i (not used) Not needed 
FOR/NEXT | FOR/NEXT 
| GOSUB | GOSUB 
| GOTO | 8010 
IF/THEN IF/THEN 
INPUT INPUT 
LET LET 
ON/GOTO (not used) Use IF/THEN GOTO 
OPTION BASE (not used) 
PRINT PRINT 
RANDOMIZE RAND 
(not used) See DATA 
REM 
(not used) See DATA 
RETURN 


STOP 
Functions: TAB, ABS, АТМ, COS, EXP, INT, LOG (use LN), 
RND, SIN, SOR, and TAN are common, 
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CHAPTER II 
GETTING ORGANIZED 


This chapter discusses the 1000 from the hardware view- 
point. Included are the TY set, power supply, cassette 
recorder, computer circuits, and edge connector interface. 


TV SET 


Black and white sets give a better display than color, as 
black and white sets have a wider bandwidth which results 
in clearer characters. The color on color sets tend to 
smear the dots that make up the display. This is true for 
all computers, not just the 1000. The most popular size is 
a 12 inch set. Readjusting TU tuning, brightness, and 
contrast controls can improve the display, 


FOWER SUPPLY 


You will normally use the power supply that comes with your 
computer. If for some reason you wish to use your oun, the 
specifications are: +9 vdc (7 to 11) well filtered. The 
tip of the 3.5 ви power supply plug is positive. The power 
unit supplied has a rating of 1 ampere so you have extra 
power for line fluctuations, temperature changes, and added 
equipment. 


CASSETTE RECORDER 


Again, Simpler is better, Select an inexpensive cassette 
recorder such as a GE Model No. 3-5009A. Battery operation 
eliminates hum from the power supply. About full volume 
should give the right level for SAVEing programs and about 
10 152 less for LOADing programs from tape. The signal is 
about 3.2 kHz. А "1" is eight cycles and a "O" is four 
cycles. Bass should be reduced (low level) if possible. 
The "MIC" output is about 0.001 vras designed for the mic- 
rophone input on a Cassette recorder. The "EAR" input is 
expecting about 1 v ras (about 4 volts peak-to-peak) which 
is a common cassette output for 8 ойн earphones. 


With two cassette recorders you can duplicate tape using 
the simple circuit shown in Figure 2-1. Recommended is 
C-10 tape cassettes which record about 5 minutes per side. 
Опе side will hold all of the programs in the Appendix at 
the end of this book. 


ACCESS 


Why do you need access to the inside of your computer? You 
don't. However there are other people who are going to 
change things. For those other people there are some things 
they should know. 


NOTE 
The warranty is void if the 
computer has been tampered with. 


There are NO user serviceable parts inside. 


Now that you have been warned we can proceed. Figure 2-2, 
bottom view, shows the locations of the five screws holding 
with an adhesive. Remove these screws and the bottom cover 
for access. 


CAUTION 


The keyboard connector strips 
are easily torn and are not 
repairable. 


The next step is critical. Remove the two screws shown in 
Figure 2-2, bottom view with cover removed, while holding 
the pc board in place. Whith great care, raise the pc board 
and work the keyboard connector strips from their sockets. 
The computer is now disassembled. 


COMPUTER MONITOR 


A computer monitor gives better resolution and those with 
green phosphor are easier on the eyes, The circuit shown 
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| MEG 47 pf 
АМУ 


—RECORDER | 


SAVE 


.OtuF 47K 


RECORDER 


LOAD 


--> 
EAR 1 MEG 47р? 


|RECORDER #1 RECORDER #2 


DUPL ICATE 


Figure 2-1. Mass Storage 


Q O О 


EAR МІС УОС 


Side View 
long screw long 
under foot screws 


short screws 
under feet 


Bottom View 


Figure 2-2a. Internal 1000 Access 


Rear View 


edge connector short 
screws 


keyboard connector heat sink 


Bottom View (Cover Кемоуед) 


Figure 2-2b. Internal 1000 Access 


һ 


USAS 
in Figure 2-3 сап be installed. ЧК1 is between the EAR 
jack and the ASTEC modulator. C4 is between +5 vdc and 
ground. These can be used for the power connections. 


FR3 . +95 v 

USA3 

UK2 . 

USA2 . 

икт. 282222 

USAI . А 
< 1007 COMPOSITE VIDEO 
i 100 ^ TO MONITOR 

Figure 2-3. Monitor Interface. 
KEYBOARD 


There are those who wish a full size keyboard (surely not 
you). You must use a keyboard with 40 switches of the 
simple switch type. The keyboard must be unencoded and 
wired as shown in Figure 2-4. The pull-up resistors and 
diodes shown are already on the 1000 circuit board. The 
two connectors KB1 and КВ? are clearly могкед on the 1000 
circuit board. 


The pull-up resistors normally keep the lines going to ІСІ 
at a logic high. When a key is pressed and an address line 
A8-A15 goes low, one of the lines to ІСІ is pulled low. The 
key is thus identified and encoded. This code goes over 
ihe DATA lines to the CPU. 


You’ll probably have some extra keys on your. keyboard. One 
function you might add is two wires, one to the reset pin 
of the 280 and the other to ground. This key will reboot 
the system without your having to pull the power plug. 
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Figure 2-4. Keyboard Matrix. 


НЕМОКУ 


The memory chip used for RAM is ТММ2014Р-1. A 6116 2K by 8 
bit memory chip works just as well. If you buy a 16K КАМ 
pack, the 2K chip on the board is not used. It is locked 
out by the RAM putting +5 volts on the КАНС5 (RAM chip 
select) line to the 2K КАЙ. 


REGULATOR 


About the only other change might be to remove the +5 volt 
regulator if you have an external regulated power supply 
plugged-in to the rear edge connector. 


COMPUTER CIRCUITS 


The following discussion leads to the use of the rear edge 
connector. 


280 CPU 


The 2808 CFU microprocessor has 14 address bus lines (А0 
through А15), 8 data bus lines, and a number of control 
lines. Of interest here are the following: 


Address bus: Used to address ROM and КАМ 
Used for dynamic memory refresh 
Used for keyboard scanning 


Data hus: КАМ and КОМ data 
Keyboard data 
Tape data in 
Tape/TV data out 


Control lines: IOREG - Input/Output Request 


НКЕВ - Memory Request 
RD - Read 
WR - Write 


All this is fairly standard except for using address bus 
lines to scan the keyboard. Not obvious 15 that the 
КОМ/КАН chip selects are not fully decoded as 815 is not 
used. 
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161 LOGIC CHIP 


The ІСІ logic chip acts as a multiple input/output port. 
Four functions are performed: 


TU/Tape output parallel-to-serial conversion 
Tape input serial-to-parallel conversion 
Keyboard encoder 

ROÜH/RAM chip select encoder 


The first three functions use the 1/0 port functions of the 
1804 CPU. The ТУ scan uses the non-maskable interrupt and 
the keyboard uses the maskable interrupt. The other way of 
getting data in and out of the computer is by using мемогу 
addresses. The decode for ROM chip select uses control 
lines MREQ and RD. Тһе decode for the internal RAM chip 
select uses control lines MREQ and either RÜ or UR. ІСІ 
only uses address line 814 for decode. If А14 is low then 
the ROMCS line is active and if high the the RAMCS line is 
active. This means that for the lower 14K addresses and the 
16K above 32K the ROM is selected. The КОМ is only 8K so 
if you do а 65k memory dump you get the ROM four times. 

Тһе RAM is only 2K and so you will select it 16 times. You 
can FEEK at any memory address and one of the chips 15 
selected. RAMCS and ROMCS lines do have buffering resistors 
so that an external device can prevent lines from going low 
(irue), 


ЕПОЁ CONNECTOR INTERFACE EXAMPLE 


Let” s design a circuit so you can turn your cassette player 
on and off using BASIC commands. This seans you can load 
programs under program control. First we need the hardware 
and then the software, 


The cassette recorder has a switch input for starting and 
stopping the cassette, Often the switch is on a hand held 
microphone. When we plug in a microphone switch plug, the 
circuit is broken and the cassette stops. Checking a little 
further we find the shell of the plug goes to the battery 
and the tip to the motor. Battery voltage under load is 
about 6 volts dc. 


ha 
1 
D 


Table 2-1. Rear Edge Connector 


RONCS 


Description 


Data line #7 

RAM chip select fros 1/0 chip 
Keyway slot 

Data line #0 

Bata line #1 

Data line #2 

Data line #6 

Data line #5 

Data line #3 

Data line #4 

Interrupt request 
Non-^askable interrupt (RST 66) 
Halt state (output) 

Memory Request (output) 
Input/Output Request (output) 
Неногу Read (output) 
Memory Write (output) 

Bus Acknowledge (output) 
Wait state (input) 

Bus Request (input) 

Reset CPU (input) 

Machine cycle one (output) 
Немогу refresh (output) 

9 volt power supply 

9? volt power supply 
Keyway slot 

Power supply return 

Power supply return 

Clock phase 0 

Address line #0 

Address line #1 

Address line #2 

Address line #3 

Address line #15 

Address line #14 

Address line #13 

Address line #12 

Address line #11 

Address line #10 

Address line #9 

Address line #8 

Address line #7 

Address line #6 

Address line #5 

Address line #4 

ROM chip select from 1/0 chip 


Logic Level 


High true 
Low true 
High true 
High true 
High true 
High true 
High true 
High true 
High true 
Low true 
Low true 
Low true 
Low true 
Low true 
Low true 
Low true 
Low true 
Low true 
Low true 
Low true 
Low true 
Low true 


High true 
High true 
High true 
High true 
High true 
High true 
High true 
High true 
High true 
High true 
High true 
High true 
High true 
High true 
High true 
High true 
Low true 


Let's develop the circuit shown in Figure 2-5. To operate 
the relay we can use a TIP 110 darlington power transistor. 


А 511 oha resistor turns it on. And nou we need a circuit 
to turn it off. 


Ме711 want to latch the cassette on (and off) so we can 
LOAD a program. А simple latch is a 7474 І.С. having a 
PRESET and CLEAR suitable for our purpose. Either the Q or 
NOT 9 output can cut off our transistor. Now we will look 
at the computer. 


All of the CPU lines seem quite busy. The port 10ВЕП is 
used for the keyboard scan, 80 through A14 for memory, all 
address lines for the keyboard and dynamic refresh. A 
combination not used is MREQ, UR, and 415. We need a data 
line to use POKE so 16175 pick 10. 


We have four lines in from the computer and need these 
decoded to PRESET and CLEAR our 7474. Fortunately a 7442 
will fill the bill. Це assign the four inputs and refer to 
ап 1.0. handbook for the truth table and find the circuit 
shown in Figure 2-5. 


We did not inhibit the RAMCS so we need an address to POKE 
that will do no hare. 


Ме now need software to operate the above circuit. There 
is an unused byte in RAM at address 16507 (see Table 8-2). 
If we add 32768 (2 to the 15th pouer) we get address 49275. 
If we POKE 49275,1 the byte is put in RAM at 16507 and 
resets the 7474 at the same time. POKE 49275,0 will set 
the 7474 in a similar manner. 


Here is how to load one program from another. The first 
program will have the following lines. 


1000 POKE 49275,0 [turns on recorder] 
1010 LOAD "2" 


The second program will have the following lines: 


400 SAVE "2" 
410 POKE 49295,1 [turns off recorder] 
420 RUN 


Edge Connector 


+50 В! 


MREQ А14--с| 13 16 11 


UR А17 ТІР 110 
А5 811—415 ре аач 


no А4 


GND B4,5- 


Figure 2-5, Auto Cassette Circuit 


When the first program gets to line 1000 the recorder is 
turned on and the second program will be loaded. The second 
program will automatically be run. If you wish the second 
program can be made to load program #3 and so оп, 


For the above circuit, Radio Shack 275-246 relay was used. 
The relay contacts are rated at 115VAC at 3 amps. This 
circuit can be used to control other devices within this 
rating. 


CHAPTER III 
ОРЕКАТТОН 


This chapter is about operating the 1000 as distinct fron 
BASIC programming. The only way to learn operation of any 
computer is by having lots of hands оп (or fingers on) 
practice. The Appendix at the end of this book is intended 
as an exercise for this purpose. Once the operation of the 
keyboard and cassette recorder has been learned, BASIC 
programming will be much easier. 


Whenever the computer is waiting for you, its status is 
shown by a prompt or a message at the lower left corner of 
the screen. There are four prompt characters: an inverse 
K, inverse |, inverse F, and an inverse D. Messages have 
two parts: either two numbers ог a letter and a number. 
The two parts are separated by a slash (/). 


THE "K" PROMPT 


When the computer is first turned on, the ROM program puts 
the computer in an empty state waiting to be told what to 
do. The keyboard is being scanned to determine if any key 
has been pressed. The program presumes the key to indicate 
a keyword or a line number in a BASIC program. Spaces can 
be entered but are ignored. There are two kinds of key- 
words: commands and BASIC words. FAST, SLOW, LIST, and 
CLEAR are examples of commands. GOTO, LET, INPUT, and NEXT 
are examples of BASIC words. When the ENTER key is pressed, 
the line that has been typed is checked by the program for 
syntax (format) and if an error is detected, an inverse § 
is placed on the screen. If all is OK, the command is 
performed, the line is entered into the program, ог the 
BASIC definition is placed in memory. 


After a keyword has been entered the prompt is changed to 
an inverse L indicating a letter is expected. 
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THE "L" PROMPT 


А letter includes 0 through 9, the alphabet, symbols, and 
punctuation. Historically the first computers were number 
crunchers and as a result, letters of the alphabet are used 
io indicate variables (numbers). If you really mean a 
letter of the alphabet it is indicated by placing the 
letters in quotes. Therefore, PRINT B means print the 
number represented by B. Print "B" means print the letter 
B. "B" or “A BUNCH OF LETTERS" are called strings. Sone 
BASIC words can be entered in the inverse L mode such as 
AND, THEN, TO, and STEP. The word THEN returns the input 
io the keyword mode. For example: IF N-5 THEN 6010 10. 


The inverse | is also used as a prompt while running а 
program. If just the L is displayed, it indicates a number 
is expected, or if it is in quotes it indicates a string is 
expected. If you wish to STOP the program, eliminate the 
first quote with the DELETE key and enter STOP. The second 
quote is ignored. 


THE "G" PROMPT 


This prompt indicates the graphic character mode. You get 
into the graphic mode by holding down the shift and press- 
ing the 9 key. All of the alphabet, numbers, and puntuation 
are displayed as inverse video characters. The space is 
displayed as a black square. In addition there are 21 
special graphic characters as shown on the keyboard. In 
this book graphic characters are shown as [gH] for graphic 
Н and [gsH] for a graphic shifted H. If you are in the 
grahpics моде, you can press the graphics key or the shift- 
ed ENTER key to return to the letter input мойе. 


THE "F" PROMPT 

To enter one of the BASIC functions (SIN,COS, STR$, etc.) use 
shifted ENTER key. After the function is entered the node 

is automatically shifted back to the letter input mode. 

THE "S" PROMPT 


When ENTER is pressed, an inverse S may appear somewhere in 
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the line you just entered. This indicates that the рго- 
grammer who wrote the BASIC language program didn’t plan 
for what you typed. Use the editor to redo the line. 


MESSAGES 


When the computer completes a program - successfully or 
unsuccessfully - a report or message 15 given on the lower 
left part of the screen. These are either a letter and a 
number or two numbers. 


THE EDITOR 


The 1000 8K КОМ provides what is known as а line editor. 

A portion of RAM memory is reserved for an input line and 
is called the ENTER file. This file contains the input 
line with keywords stored as one byte tokens while the 
display has the words all spelled out, Editing takes place 
in the ENTER file although it appears you are editing the 
display. So what you see is only an image of the line you 
are editing. You type into the ENTER file or you can bring 
an existing line from your program into the file. 


To Correct a Line at the Bottom of the Screen 


А prompt character is inserted as а cursor to indicate 
where the next typed character will be entered. If the 
DELETE key (shifted 0) is pressed, the chatacter to the 
left of the cursor is erased. The shifted 5 and shifted 8 
"Ove the cursor io the left and right without erasing 
characters. If the cursor is between characters, any char- 
acters you type will he inserted at that location. 


To Change a Line in an Existing Program 


The keyword EDIT (shifted 1) brings the "current" line inte 
the ENTER file for editing. The current line is indicated 
in ihe program display by an inverse > after a line number. 
If the line has been deleted it will bring the following 
line down. To change the current line a line or two, use 
the shifted 6 or shifted 7 key, For larger changes, use 
LIST nnnn where nnnn is the line number you want. 
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To Replace a Line 


1f a line is entered with an existing line number, the old 
line will be replaced by the neu line. This works with any 
line, not just the current line. 


To Delete a Line 


If you type in only a line number and press ENTER, if the 
line exists the line will he deleted including the line 
number. If you type in a new line number by itself and 
press ENTER the program file is unchanged and the number is 
discarded. 


Üne more comment on editing. The program display wall he 
510464 if vou have been running a progran with a lot of 
variables. To speed-up listing the display, press CLEAR 
to get rid of the variables file. 


TAPE STORAGE 


Refore spending a lot of time entering long BASIC programs 
you should practice saving and loading programs using your 
cassette. If you have purchased saftware ог received soft- 
ware from a club or friend, make а duplicate on s new tape. 
Otherwise use the programs given in the Appendix of this 
book. Digital recordings on cassettes are not highly re- 
liable. You may wish to make more than one copy on the 
same or different tapes. 


ТАРЕ FILES 


Use the following procedure to verify the operation of your 
cassette recorder. In this book, "type" means to type in a 
line tut do not press the ENTER key. "ENTER" means to type 
in the line and to press the ENTER key. If your cassette 
has automatic level control, probably full volume works 
best for record and 10% less for playback. Proceed ta: 


1. ENTER the following program: 
10 REM "DNE" 
20 PRINT "ONE LOADED" 


2. Type the following: 
SAVE "ONE" 

3, Start the cassette in the RECORD mode (usually both 
the RECORD and PLAY keys). Press the ENTER key. 

4. When the display has stopped jumping around, stop 
and rewind the tape. 

5. ENTER the command NEU (above the A key). 

6. Type the following: 

LOAD "ONE" 

7. Put the tape in the PLAY mode and press ENTER. There 
is about a á second lead-in tone before the program. 
Press the ENTER key before the tone is up. 

8. When the display stops jumping, stop the tape. 

9. ENTER the RUN command (on the R key). The message 
"ONE LOADED" should be PRINTed on the screen. IF 
not, readjust the record or playback level. 


THE НЕМИ 


А menu is а list displayed on the ТУ showing programs for 
your selection. If a menu program is used, it is the first 
program on a cassette tape. It has two functions: 


1. Tells you the programs on the cassette. 
2. Lets you select a program by number. 


Program 3-1 shows ihe structure of a menu. The key idea 
is line 210 which loads the desired program from the 
cassette. Add а name, a list of the programs, a keyboard 
input, and an auto RUN feature and we have our progran, 


Program 3-1, А Simple Menu Program 


10 REM "0" 
100 PRINT "1 Name of 151 program" 
110 PRINT "2 Наме of 2nd program" 
120 PRINT "3 Nase of 3rd program" 
200 INPUT ñ$ 
210 IF VAL A$<1 ОК VAL 8523 THEN GOTO 200 
220 LOAD A$ 
230 GOTO 10000 
300 SAVE "0" 
310 GOTO 190 


The four parts to the above program are: 


1. Line 10 is required to save the menu on cassette. 
The nase "0" was chosen as the other programs will be 
named "1", "2", and "3" for loading by selection. 

2. Lines 100-120 display the list for your selection. 

3. Lines 200-230 get the program паме and do the load. 
Line 210 checks for input error and line 220 LOADs 
the selected program. The program should never get to 
line 230 which stops the program. 

4. Lines 300-310 are the auto RUN routine. This causes 
the program to RUN as soon as it is LÜADed. 


SAVING THE MENU QN CASSETTE 


Once you have the menu typed in, the next step is to SAVE 
it on cassette. The SAVE command is on line 300 so we use 
GOTO 300. 


1. Type GOTO 300 

2. Start the cassette in the RECORD mode. 

3. Press ENTER (within 6 seconds), 

4. Stop the cassette. The tape is now in position for 
the first program to be recorded. 


SAVING THE PROGRAMS 


Now that we have the menu on cassette, the next step is to 
save sone programs. Use NEW to erase the old program and 
type in a program. The name оп the first line of the first 
program must be REM "1". This is used to SAVE and LOAD 
from the menu. After the program has been typed ins 


1. Type SAVE "1" 

2. Start the cassette in the record node. 

3. Press the ENTER key. 

4. When the normal raster returns, stop the cassette. 

5. SAVE the other programs using REM "2", REM "3", etc. 

6, Rewind the cassette and load the menu (LOAD "" will 
always load the next program, 

7. Type the program number from the menu selection. 

8. Start the cassette in the play mode and press ENTER. 
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HOW TO WRITE PROGRAMS 


А computer progran needs an input, an output, and something 
in between. In this chapter we will build a program (an 
adding machine), look at rules of programming, and give 
sone program examples. Their are many ways of writing 
programs. Often we know what we have for input and what 

we want for output. What we need is the in between part 
which is the key idea to programming. This key is often 

a formula and once we have it we can just add inputs and 
outputs. 


То get information into the computer we have two keywords 
LET and INPUT: to get it out we have the keyword PRINT. 
Consider this simple program: 


10 INPUT BALANCE 

20 INPUT AMOUNT 

30 LET BALANCE=BALANCE+AMOUNT 
40 PRINT ANOLINT, BALANCE 

50 GOTO 20 

RUN 


As wat stated in Chapter I, BASIC was originally designed 
to use numeric data to get numeric answers, The above is 
such a BASIC program, 16175 examine its parts: 


1. Line numbers show the sequence for running the progran 
and are used for editing. 

2. The key idea or formula is line 30 which reads "let 
the current balance equal the old balance Цэс the 
amount" (which may be negative). 

3. Lines 10 and 20 let numbers he entered from the 
keyboard when the program is RUN. 

4. Line 40 displays the results. The comma causes the 
display to be two columns. 

5. Line 50 gets another amount. То STOP the progran, 
just ENTER the keyword STOF. 


If ue use a B instead of the word BALANCE and an A instead 
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of AMOUNT line 30 looks моге like а formula: LET B=B+A. 
The choice is up to you. 


NUMBERS 


Now is the tine to look at numbers in detail. All numbers 
are stored (and therefore remembered) to 8 digit precision 
positive or negative, and with a decimal place. When you 
write in a program: LET A=} and LET B=A, the В is equal to 
1. А11 INPUT and LET statements must evaluate to a number. 
There are two built-in numbers: PI and RND. RND stands for 
random and has a value of one of a sequence of 65536 
numbers. Use of the keyword RAND (stands for randomize) 
makes RND a random number. 


FORMULAS 


Almost anywhere you can use a number you can use a formula 
if enough information already exists for the computer to 
reduce the formula to a number. BASIC can perfora many 
iypes of calculations. This includes addition, subtraction, 
multiplication, division, square roots, raise a number to a 
power, and evaluate trigonometric functions as follows: 


Symbol Meaning 
+ Addition 
- Subtraction 
# Multiplication 
/ Division 
жз Raise to the power (Х%%2 means X squared) 
SIN Sine of a number in radians 
cos Cosine of a number in radians 
Тан Tangent of a number in radians 
ARCSIN Arcsine in radians 
ARCCOS Arccosine in radians 
ARCTAN Arctangent in radians 
EXP e to a power 
LN Natural logarithm 
ABS Absolute value 
SOR Square root 
SGN Signum (sign +1, -1, or 0) 
INT Integer (rounds down to whole number) 


Parentheses are used to group those parts of a formula we 
wish to evaluate first. For example: 


1. A formula inside parentheses is computed before being 
used in further computations. 

2. Otherwise, the computer first raises a number to a 
power, then performs multiplication and division, 
and then addition and subtraction last. 

3. Without parentheses, multiplication and division are 
performed from left to right and then addition and 
subtraction are performed from left to right. 


If there is any doubt about the priority, use parentheses 
to eliminate any possible ambiguities. 


STRINGS 


In BASIC any sequence of characters enclosed in quotes is 
called a string. A string can be used after the keyword 
PRINT to prompt for inputs or for table headings, etc. In 
our adding machine program, we know how it works but maybe 
а user dees not. We can add messages and headings to help 
a user. Try this: : 


100 PRINT "ENTER STARTING BALANCE"; 
110 INPUT BALANCE 

120 PRINT BALANCE 

130 PRINT "ENTER AMOUNTS ONE AT A TIME" 
140 PRINT 1 

150 PRINT "AMOUNT", "BALANCE" 

160 PRINT 

170 INPUT AMOUNT 

180 LET BALANCE=BALANCE+ANQUNT 

190 PRINT AMOUNT, BALANCE 

200 6010 170 


Here we prompt for the two inputs and on line 150 we PRINT 
the heading. A PRINT by itself puts in a blank line. The 
semi-colon at the end of line 100 holds the printing 
position so that the balance entered next will be displayed 
on the same line. 
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STRING VARIABLES 


А big step forward in making BASIC flexible and a big step 
backwards in readability was the addition of string vari- 
ables. Strings are treated much like numeric variables in 
that they can be defined, stored, changed, and manipulated. 
A string is defined by using a LET statement and calling 
the string by a letter and a $ i.e. A$. 


Well, A$ is not too readable (you can’t use AMOUNTS) but 
16175 see what else was added related to strings. You сай 
add two strings of characters (BUG*ÜFF-BUBÜFF) but how can 
you divide or multiply? You can't. There are some numbers 
associated with a string. Each character has a code which 
is a number. Also the пимБег of characters in a string is 
a number. And if the character is a number from 0 to 9 it 
has a value. So three more words were added to BASIC. 
These three words result in a number and so can be used 
anywhere a number can be used. 


Here are the three words: 
CODE [CODE "S" means 33 (the code for 5)1 
LEN [LEN "5" means 1 (the length i.e. number of 


characters in the string)] 
VAL CVAL "5" means 5 (the value of the character 5)1 


The above gets you a number from a string. For the other 
way around you get a string from a number by using: 
CHR$ [CHR$ 33 means "5"] 
STR$ [STR$ 33 means "33"] 
These five words are usually used with variables such as: 
AS="PAGE "+STR$ P 
These are all good words but are learned by needing then 


and by using them. Let^s get back to English. 
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“рт 


IF ... THEN 


The original BASIC provided for what has been called а 
conditional branch. The format starts with the keyword ТЕ, 
followed by a formula that can be tested internally for a 


true ог false condition, and then the keyword THEN. 


THEN 


is followed by a statement to be executed if the statement 


is true, Two examples: 


IF 4-8 THEN GOTO 19 


IF ñ+B=Ü ОК IF D+E=F THEN PRINT "END OF PROGRAM" 


You can use any of the following for a true/false test: 


Symbol E: 
is 
15 
15 
15 
15 


is 


ш 
> > > > г > 


pie Meaning 


equal to B 

less than B 
less than or 
greater than 
greater than 
not equal 10 


equal to B 


R 


or equal to В 


B 


If the statement is false, the program continues on to the 
next line. Internally the test results in a 0 if faise 
and a 1 if true. В formula can be used such as á - 5, If 
the result is 0 the statement is false and the THE® part 
is skipped. Any other value is taken as true. 


ADDING MACHINE 


Let's use an IF ... THEN statement in our adding machine 
program. In our adding machine program, when the screen 
gets full, the program stops. We have a keyword SCROLL 

that will move the entire display up one line allowing us 


to continue without stopping. We don’t want this to 
happen until we get to the last line on the screen. 


Here 


is what we can do. Set up s counter and use an IF state- 
nent. When we get to the last line of the screen, ue tell 


the computer to start scrolling. 


For the adding machine program the counter is setup on line 
100. There are 22 lines on the screen, but because of the 
headings we choose to start scrolling оп the 17th entry. 


Program 4-1. Adding Machine 


10 REM "ADDER" 

20 REM (C) К. ORRFELT 

30 REM SEPT 1982 

110 PRINT "ENTER STARTING BALANCE" 
120 INPUT BALANCE 

130 PRINT BALANCE 

140 PRINT "ENTER AMOUNTS ONE AT A TIME" 
150 PRINT 

160 PRINT "AMOUNT", "BALANCE" 

170 PRINT 

180 INPUT AMOUNT 

190 LET BALANCE=BALANCE+AMOUNT 
200 PRINT AMOUNT, BALANCE 
210 LET COUNT=COUNT+1 
220 IF COUNT >= 17 THEN SCROLL 
230 GOTO 180 


So now we have our simple program with some ргомріѕ, head- 
ing and a scrolling feature. The program should still be 
quite easy to read. 


FOR ... NEXT 


The original BASIC provided for what is called a loop. This 
lets you repeat a section of the program a fixed number of 
tines. The form is: 


100 FOR N=2 TO 10 STEP 2 
110 PRINT N 
120 NEXT N 


FOR, 10, STEP, and NEXT are all keywords. Тһе above рго- 
агам PRINTs the numbers from 2 to 10 by 275. Often the 

STEP will be a one, in which case the keyword STEP and its 
size аге omitted. Loops can be used within loops. These 
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are called nested loops because they cannot cross: 


Allowed Not allowed 
FOR X=1 TO 8 FOR X=1 10 8 
FOR Y=2 105 FOR Y=2 105 
NEXT Y NEXT X 

NEXT X NEXT Y 


CLOCK 


An excellent example of nested loops is a clock program. 
Here the loop for seconds is nested inside the loop for 
minutes and these two loops are nested inside the loop for 
hours. Such a progran is shown in Program 4-1, 16175 
digress from BASIC keywords and examine a complete clock 
program in detail. Program 4-2, the clock program is shown 
starting on the next page. 


The nested loops are as follows: 


409 FOR H 
500 РОК М: 
5 


750 МЕХТ М 
780 NEXT H 


First we want to дган the clock face. Line 200 puts the 
letter "0" in the center of the face just for looks. Lines 
210-230 put the numbers 1-12 in a circle. There are 2*PI 
radians in a circle. For 12 segments this is 2*PI/12 ог 
PI/6 in this program. This compacts the program; 


Next we want to set the starting time. Input B is the hour 
and input С is the minutes. The trick here is to ENTER the 
hour and type in the next minute coming up on your watch 
but don’t press ENTER. Then about 2 seconds before the 
minute changes press ENTER and the clock program will 

start off at the right time. 
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0 LET 


REM "CLOCK" 

REM (C) К. ORRFELT 
REM AUGUST 1982 
LET 
LET 
LET 
LET 


LET 
LET 
PRINT AT 10,15;"0" 
FÜR N=1 TO 12 
PRINT AT 10-104C08 
NEXT N 

PRINT AT 21,0;"SET 
INPUT B 

PRINT АТ 21,0; "ВЕТ 
INFUT C 

PRINT AT 21,0;" 
FÜR H=B TO 11 

LET A=H#PI/4 
UNPLOT P, 

LET P=31+104SIN A 
LET Q=22+104C08 A 
PLOT P,Q 

FOR МАС TO 59 

LET A=M#PI/30 
UNPLOT U,V 

LET Uzil*154S1N A 
LET V=22+154C0S А 
PLOT U,V 

FOR S=1 TO 60 

LET A=S#P1/30 
UNPLOT X,Y 

LET X=31+184SIN A 
LET ү=31+18+С05 А 
PLOT X,Y 

LET 251 


—< >< coco TS 


вани ЕЕ 


с» с с с о с Ф 


Program 4-2. CLOCK 


(NEPT/4),15+104SIN (N#PI/6)5N 


нка" 


MIN:" 


" 


[eight spaces] 


Program 4-2. CLOCK (cont.) 


700 FOR 1-0 70 2 
705 REM 

706 REM 

707 REM 

710 NEXT I 
730 NEXT 8 
750 NEXT M 
760 LET С=0 
780 NEXT H 
790 LET B=0 
800 GOTO 400 


The position of the hands are P and 0 for the hour hand, 
U and V for the minute hand, and X and Y for the second 
hand. Before plotting the positon of the hand we erase 
the old hand by using UNPLOT. Lines 100-160 initialize 
these numeric variables for the first pass. We calculate 
the position of the hand and then PLOT it. 


Lines 700-707 are the timing adjustment so that the seconds 
loop takes exactly one second. This is found by trial and 
error and probably need changing for different machines. 


When the minutes loop (59) is completed, line 740 resets 
the minutes to zero and then advances the hour. А similar 
thing happens at 12 o“clock. The hour position is set to 
zero and the clock cycle starts all over again. 


Numeric variables (P, 0, U, etc.) must be defined in a LET 
or INPUT statement before it can be used elsewhere. If 
you examine lines 420-450 you will notice that we UNPLOT 
(or erase) the old clock hand positions before we PLOT 

its new position. On the first pass of the program, these 
variables would be undefined except for lines 110-1650. 


This program originally was too large for 2K мемогу. To 


compact the program the letter 0 was set to zero and used 
whenever a zero was needed. 
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PRINT 


We have looked at inputs, lots of things to put in between, 
and now let’s look at outputs. The keyword is PRINT and 
can have the following forms: 


A number CPRINT 51 

A numeric variable [PRINT X1 

А string [PRINT "ENTER A NUMBER") 
A string variable [PRINT ВЭ? 


Following the keyword PRINT we can if we choose control 
the location where the printing starts. This location 
is detersined by any of the following: 


қ [PRINT X, next print at columns Q ог 182 

; [PRINT X; next print at next position] 

АТ [PRINT AT 5,5;X prints X at line 5, column 51 
TAB [PRINT TAB 8;X prints at column 81 


SCROLL [SCROLL moves display up and next print at 0,21] 


Some comments are in order. You can use PRINT,X to advance 
the print position before X is printed. 0г you can use 
PRINT,,X to advance the position twice. The semi-colon 15 
required after the column and row for AT and after the 
column for TAB to hold the print position. You can use а 
numeric variable or a formula to indicate the column or 
rou. You can also use a series of locations and itens 
after the keyword PRINT. 


The PRINT next print position is stored at memory addresses 
16441 and 16442. If you are clever, you can use PEEK and 
POKE to find or alter where you want to print. For an 
example of this see Program 8-3 (Chapter VIII). 


1f you loop on TAB, the amount is added оп each loop. The 


maximum total is 255 (one byte) so you may have to set up a 
counter and readjust the print position for some programs. 
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DIGITAL CLOCK 


After all that, we need to look at a program example. For 
this we will use Program 4-3, a digital clock that produces 
large numerals five lines high. Of interest here are the 
PRINT statements starting on line 1000 that produce the 
numerals. 


For a digital clock не need six digits. The first digit 15 
a special case being either a 1 or nothing. For the other 
five digits we need five nested loops. Originally: 


300 FOR H-1 TO 
600 FOR Т-0 TD 
630 FOR М=0 TO 
700 FOR П=0 TO 
730 FOR 8-0 TO 
900 NEXT 5 

910 NEXT 
920 NEXT 
940 NEXT 
960 NEXT 


2 


кл — 


"Q Ci 


T — ж c 


Then some of the constants were changed to variables for 
setting the starting time or for compacting. The result 
is shown in Program 4-3, The value assigned to X in each 
loop is the PRINT position across the screen. The numeral 
to Бе PRINTed is the loop count i.e. 5 15 seconds and has 
values from 0 to 9. The GOSUB formula finds the correct 
PRINT statement. Before examining the PRINT statements, 
let/s look at the first part of the program. 


Lines 100-130 define the four strings needed to form parts 
of the numerals. [q 1 indicates a graphics mode space 50 
8% is three black squares. Five 1875 each printed just 
below the last one, form a 1. These are used in the PRINT 
statements. 


Lines 200-250 define constants needed to compact the 
program. Lines 310-360 are used to set the starting time. 
U 15 the starting tens minutes digit and B becomes the 


REM 
REM 
REM 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 


Program 4-3. 


"p.c" 
(CO)R.ORRFELT 
AUG 1982 
4%="999" 
R$z"g 3" 
С$=" 8" 
I$="g at 
N=8 

0-7 

Р=10 
8-11 
К-12 
K=1000 


Digital Clock 


[g Jig Ма ] 
[g Ж Ма 1 
ІШ 19 1 
Cg 111 1 


PRINT " INPUT HR AND MIN" 


INP 
INP 
CLS 
LET 
LET 
PLO 
PLO 
PLO 
PLO 
FOR 
LET 


UT A 
UT B 


USINT (B/P) 
B=B-P+*U 

T 18,24 

T 18,20 

T 38,24 

T 38,20 

Неа TO R 
СЕН 


IF CO THEN GOSUB 2000 


LET 
605 
ЕОК 
LET 
608 
FOR 
LET 


X25 

UB K+C#P 

T=U TO 5 
Х=@ 

UB K+T*P 

M=B T0 0 
X=15 


GOSUB К+М+Р 


РОК 
LET 
808 


050 TO 5 
X221 
UB 421114 


FOR 5-0 TO 0 


LET 


X229 


800 
810 
909 
910 
920 
930 
940 
920 
960 
970 
980 
990 
1000 
1005 
1010 
1015 
1020 
1025 
1030 
1035 
1040 
1045 
1039 
1055 
1060 
1065 
1070 
1075 
1080 
1085 
1990 
1095 
2000 
2010 
2020 


Program 4-3. 


FOR Z=1 T 
NEXT Z 
NEXT 5 
NEXT ПІ 
NEXT M 
LET Еғ0 
NEXT T 
LET Uso 
NEXT H 
LET ñ=1 
CLS 

GOTO 400 
PRINT AT 
RETURN 
PRINT AT 
RETURN 
PRINT АТ 
RETURN 
FRINT АТ 
RETURN 
PRINT АТ 
RETURN 
PRINT AT 
RETURN 
FRINT AT 
RETURN 
PRINT AT 
RETURN 
PRINT AT 
RETURN 
РКІНТ AT 
RETURN 
LET (50-Р 
LET X=] 
GOTO 1910 


00 


N,XtA$,AT 
N, X04, АТ 
М, ХАЖ, ЁТ 
М,Х; АЗ „АТ 
N,XIE$,AT 
N XIAS,AT 
N,X5A$, AT 
N,XSA$,AT 
N,X;A$,AT 


N,X;48,4T 


0,X;B$,AT 
0,X;C$,4T 
0,X5C$,AT 
0,Х20%,АТ 
0,Х;В%,АТ 
0,Х; 09, АТ 
0,Х:08,АТ 
0,X;C$,4T 
0,X;B$,AT 


0,5; ВАТ 


igital Clock (cont.) 


P,X;BS,AT 
Р,Х; Сф, АТ 
Р,Х;АЗ,АТ 
P XJA$,AT 
Р,Х; 43, АТ 
P ,X;48,4T 
Р,ХуА8,А1 
P,X;CS, AT 
P,X;4$,AT 


P,X;4$,4T 


08,Х:88,41 
8,Х:6%,АТ 
8,X;D$,AT 
б.е АТ 
8,X;C$,AT 
8,X;C$,AT 
8,Х;8%,АТ 
@,Х;С%,АТ 
0,X;B$,AT 


0,Х(08,АТ 


к,Х; 8 
Ё,Х:03 
К,Х:48 
ЖҮНІ 
R,X;CS 
R,X:69 
R XAS 
к, 
Ё,Х:48 


ТЕГІ 


units minutes digit. Lines 400-430 insert two colons at 
ihe proper position. 


Lines 500-990 are the timing loops for the clock. The 
hours two digits are unique. Hours from 1 to 9 have a 
blank for the first digit and only a 1 is needed for the 
hours of 10 through 12. Line 320 tests for the 1. If € 

is greater than 9 (P) the program GOSUBs to line 2000 and 
inserts the 1. At 12:59:59 + one second line 970 resets 
the hour to 1 and clears the screen. The clock then starts 
off at 1:00:00. Lines 800-810 adjust the units seconds 
loop to one second. 


Lines 1000-1095 are the PRINT statements to fora the 
digits. There are five ATs on each PRINT line. N, 0, P, 
0, and К are the screen line locations. Х is the column 
position. A$, B$, C$, and D$ are the black squares used 
to form the digits. 


CHAPTER Ч 
FUN AND GAMES 


This chapter is about an arcade game, animation, dice, and 
a card game. Games and animation are often very machine 
dependent. The games and animation in this chapter are 
written for machines with small memories (2K or 3K). If 
you have моге than ЗК КАМ memory, the display is memory 
mapped, that is all lines are padded out with spaces to 32 
characters. Clearing the screen or rewriting part of the 
screen is much slower, giving the effect of a shade being 
drawn from the top down. If you have more than 3K RAM, 
FOKE 16389,76. This limits your active memory to 3K. 
These programs will then RUN as intended. 


The graphic characters and inverse characters (white on 
black) can be FRINTed just like other characters. То 
develop a new figure you may wish to use grid paper, or you 
мау wish to "doodle" on the screen using print statements. 
А good imagination is helpful. For example, to draw an 
auto, try this: 


10 PRINT " /ggL " £ JL 3í/1E3s71E3s71IE3sL JE. И J 

20 PRINT "44444433"  LasH1L3 JEg Ма JE3 119 За 114581 
30 FRINT " 0 Ü t Г | к! ын Ес 1Г-1НЫГ 3 
g=qraphics mode, s=shift,£€ 1-1 character 


PLOT and UNPLOT can also be used as in the Clock program. 
These two functions are most useful when using functions 
like SIN and COS to calculate screen positions. All PLOT 
and UNPLOT graphics can be drawn using the PRINT state- 
ment. The choice depends on which 18 easier to use. 


The PAUSE statement causes a disturbance in the display. 
For most purposes a FOR NEXT loop gives better animation, 


19 FOR N=1 TO 37 

20 NEXT N 
gives about a one second delay. You can use 18 loops for a 
half second or 370 loops for ten second delay as the delay 
is proportional. 
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ВЕН 


The first game is of the arcade type. Неге a bug-eyed- 
monster jumps up at one of ten random positions across 

the screen. If you press the correct number key you add 
to your score. You get 20 chances. This game is based on 
the Sinclair "Sniper" but has been greatly modified. 


Refering to Program 5-1, line 90 RAND sets the random numb- 
er generator to a random starting point. Next the screen 
is cleared in case the gane is played more than once. Two 
variables are set to zero. 5 is for your score and С is 

to count the tries. 


This game/s key idea is to match the display position to a 
number keys. Line 130 P=1+INT(RND#10) gives P а random 
value of from 1 to 10. The function RND generates a number 
from 0.00000000 to .99999999, Multiplying RND by 10 and 
taking the INTeger (whole number) is a value of 0 to 9, 
Adding 1 matches the top row of keys on your computer 
except we will have a 10 where the 0 is. This is solved on 
line 140 by multiplying by SGN(10-P). This function has a 
value of 1 if 10-P is greater than 1, 0 if zero, (and -1 

if less than 0). We have now defined K (the key) to 
correspond to the screen position. 


Ue are going to draw a figure three characters wide for the 
заме, so we multiply P*3 for values from 3 to 50. Тһе last 
position would try to PRINT at 30, 31, and 32. The maximum 
position is 31 so we subtract 2 on line 150 to center the 
display. We have now defined ten positions p and corres- 
ponding keys K. 


Next не 11 need two monster figures, before and after. 
Let/s use an inverse " for the head and eyes and a monster 
T-shirt (inverse M). Fill in the bodies and PRINT AT the 
random P position on lines 160 to 190, 


To make it more interesting for high scorers, the timing 
loop on line 200 starts with the score 5. This means the 
higher the score the shorter time the player has io press a 
key before the monster disappears. Also when a key is 
pressed, the program jumps out of the timing loop. (If 
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Program 5-1. "BUG EYED MONSTER" 


REM "BEM" 
КЕМ (C) К. ORRFELT 
REM JULY 1982 
RAND 
CLS 
LET 5-0 
LET C=0 
LET Pz1*INT (RND#*10) 
LET K=INT P*S6N (10-Р) 
LET Pz(P*3)-2 
PRINT АТ АР "а" Г Eg") 
PRINT AT 5,Р; "аза" ГазЕ ай Газк? 
PRINT AT 6&,P;" g "- Г На ИЗ 
PRINT АТ 7,Р; "заз" Га53114 114541 
FOR N-S TO 40 
IF INKEY$<>""THEN GOTO 400 
NEXT N 
IF INKEY$=STR$ К THEN GOTO 500 
GOTO 800 
PRINT AT 4,P3"999" | LasYlt3"JEtgsT1 
PRINT АТ5,Р 3" г JEgMJL J 
PRINT АТ &,P;" 43 " [C Ha H? 
PRINT AT 7,P3"9 3" ІЗеТІІ Hasy] 
LET 85541 
PRINT AT 15,0;"SCORE "sg 
FÜR N=1 TO 30 
NEXT N 
LET C=C+1 
55 
0220 THEN GOTO 900 
үл Nz1 TO ЇНТСЄСЕН 303410 
NEXT N 
GOTO 130 
PRINT АТ 15,0;"SCORE "15; 
PRINT " OUT OF 20" 
PRINT 
PRINT "PLAY AGAIN?" 
INPUT A$ 
IF АЗ-"Ү" THEN GOTO 100 
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you are refering to books on other BASIES this мау not be 
allowed but it works ОК for Sinclair BASIC. The question 
is - has anything been left on the machine stack ог the 
00508 stack? - this case no). 


If the correct key has Бееп pressed, the spread-out monster 
is displayed or else the count is increased without an 
increase in the score. й random length pause is inserted 
before the next monster is displayed. At the end of the 
game the score is given and the player may choose to play 
again. 


PEEKIN^ DUCK 


The next item on the agenda is to develop animation. The 
trick here is to include a space on the side away from the 
motion to erase the old figure. Let^s shoot an arrow 
across the screen. Try this: 


10 FOR N=0 TO 28 
20 FRINT AT 10 Ме 7-755 


30 NEXT N 
RUN 
As the arrow advances, the last "-" is left and fills the 


line. Now add а space at the beginning of the string 
(" --5"j, The arrow now appears to fly across the screen, 


Let's do our duck. In fact 16175 do four ducks; facing 
right, out and in the water and facing left, in and out of 
the water. Program 5-2 is the result. The four ducks are 
constructed by lines 200 through 540. The two ducks 

facing right begin with at least one space and the tuo 
facing left end with at least one space. The six spaces on 
line 310 erase the top line of the standing duck. 


Back to the beginning. After printing the title, lines 100 
through 150 draw some land and water. The duck then does 
its thing. Line 600 lets the duck take a hrief nap. Не 
now need something to wake "РЇ". Lines 700 and 710 makes 
a "thing" pop up out of the water. (А fish or frog or мау- 
be a monster). After a slight delay the thing pops back 
under the water hy lines 740 and 790. The program repeats 
as "PH" goes to see what happened. 
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750 
769 


Program 5-2. 


REM "PD" 
REM (C) К. ORRFELT 
REM JULY 1982 


"PEEKIN DUCK" 


PRINT AT 18,2; "PEEKIN DUCK" 
PRINT АТ 19,2; "ЕТ BOB ORRFELT" 


FOR М-0 TO 15 

PRINT АТ 15,N; "4" 

NEXT N 

FOR N=16 TO 31 

PRINT АТ 15,N; "3" 

NEXT N 

FÜR N-0 TO 12 

PRINT AT 12,8, gg" 
PRINT АТ 13,N;" 9999" 
PRINT AT 14,N;" 4" 
NEXT N 

FOR N=13 TO 25 

PRINT AT 12,N;" " 
PRINT AT 13,N;" , 44" 
PRINT AT 14,N;" 9939" 
NEXT N 

FOR N-25 TO 14 STEP -1 
PRINT AT 13,N;"39  , " 
PRINT AT 14,N;" 9999 " 
NEXT N 

FOR N=13 TO 0 STEP -1 
PRINT АТ 12,N;"399g  , " 
PRINT AT 13,М;" gggg " 
PRINT AT 14,N;" 9 я 
NEXT N 

PRINT АТ 12,1; "а" 

FOR N=1 TO 20 

NEXT N 

PRINT АТ 13,29;"?" 
PRINT AT 14,29; "4" 

FOR N=1 TO 20 

NEXT N 

PRINT AT 13,29;" " 
PRINT AT 14,29;" " 

GOTO 200 


1957] 


19551 


С 20,20 JE JL 1030209567 
С Jt 20935109 Jig 209511 
C JE JE JL 119507 


E JE JE ин H 
ШІН JL 11450114561 
[ JC 11455114 114 114511 


m 


35119021 J£ JE JU,JU 1 
Г 11452113 209 11511 


19521301 JE JE 1,21 1 
L 11352114 Из Ј0955Ј JL 
ІШ 1095021 H JE 2E 1 
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tq") 


g=graphics mode, s=shifted, Г 1-1 character 


2 


CRAFS 


In this dice game you play against the house (computer). 
You start with $1000. The program just about fills the 2K 
memory so there is very little error checking. If you bet 
all or моге than you have, and lose, the game is over. If 
you wish to practice side bets, you are on your own and 
must keep your own side bet score. 


After you make your bet, the house rolls the dice. The 
third sides that come up are the dice at rest. If they 
show a 7 ог 11 (natural) you lose. 17 they show a 2, 3, ог 
12 (craps) you vin. If the result is a 4, 5, 6, 8, ?, or 
10 that is the point that the house must make. You win if 
a 7 comes up before the point is made. 


The odds for this game are slightly in favor of the player 
(252 to 245, or about 1.42). Casinos change the odds by 
calling a 2 or a 12 a push or stand-off (neither a win nor 
loss). This can be done by making the following changes to 
the program. 


330 IF P=3 OR P=12 THEN GOTO 700 
335 IF P=2 THEN GOTO 720 


fhis changes the odds to 976 to 949 or about 1.47 in favor 
of the house. If you wish to automate this program with a 
fixed bet, make the following change. 


230 LET B=100 


Looking at Program 5-3, line 90 sets the random number 
seed, Lines 100-140 set the graphics for the dice which are 
printed by 605085 to lines 1010 through 1063. 5 is your 
starting amount and В is your bet. Each 50808 800 rolls 
the dice. Lines 310-340 check for a natural or craps, and 
if not sets the point. If a point is set, the rolls 
continue until the point is made or a 7 comes up. Line 350 
causes the repeat. The use of three rolls is just for 
graphic effect. 


On a loss the score is adjusted, a pause for viewing, clear 
screen, a check to see if there is money for another bet, 
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Program 5-3. "CRAPS" 


REM "CRAPS" 

REM (С) К. ORRFELT 

REM JULY 1982 

кани 

LET A$="999" 140114 114 1 
LET B$="g99" Са 21401214 2 
LET С9="999" га 114 11401 
LET D$="ggq" 140114 21401 
LET ЕЗ: "ааа" Га Ма 114 1 
CLs 

LET 521000 

FRINT "YOU HAVE 9",5 

PRINT "ВЕТ"; 

INPUT Е 

PRINT B 

GOSUB 800 

GOSUB 800 

GOSUB 800 

LET P=D+E 

IF P=7 ОК Р-11 THEN GOTO 600 
IF P=2 OR P=3 QR P=12 THEN GOTO 700 
PRINT AT 15,0; "МУ POINT IS "jP 
GOSUB 800 

GOSUB 800 

GOSUB 800 

PRINT "ROLLED "j(J4E); " " 
IF PzD4E THEN GOTO 600 

IF (D+E)=7 THEN GOTO 700 
GOTO 350 

PRINT " YOU LOSE" 

LET S=S-B 

GOSUB 2000 

CLS 

IF S<=0 THEN GOTO 900 

GOTO 200 

PRINT " YOU WIN" 

LET S=S+B 

GOSUB 2000 

CLS 

GOTO 200 
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800 
810 
820 
830 
840 
850 
860 
900 
910 
920 
930 
940 
950 
1010 
1011 
1012 
1013 
1020 
1021 
1022 
1023 
1030 
1031 
1032 
1033 
1040 
1641 
1042 
1043 
1050 
1051 
1052 
1053 
1080 
1061 
1082 
1083 
2000 
2019 
2020 


Program 5-3. "CRAPS" (cont.) 


LET D=1+INT (RNIMÓ) 

LET E=1+INT (RND+6) 

LET X=10 

60508 (10004101) 

LET Х=15 

SOSUR (1000+10+Е) 
RETURN 

PRINT АТ 10,2; “YOU ЯКЕ“; 
PRINT "BROKE" 

PRINT "PLAY AGAIN?" 
INPUT 6$ 

IF 6%-"Ү" THEN GOTO 150 
STOP 


PRINT AT B,X;B$ 
PRINT АТ 9,X;B$ 
PRINT АТ 10,X;E$ 
RETURN 


PRINT АТ 8,X;4$ 
PRINT АТ 9,X;E$ 


PRINT AT 10,X;C$ 
RETURN 

PRINT АТ 8,X3A$ 
PRINT AT 9,X:B$ 
PRINT АТ 10,Х:05 
RETURN 

PRINT AT 8,X;D$ 
PRINT AT 9,X;E$ 
PRINT AT 10,X;0$ 
RETURN 

PRINT АТ 8,X;D$ 
PRINT АТ 9,X;B$ 
PRINT AT 10,X;D$ 
RETURN 

PRINT AT 8,X;D$ 
PRINT AT 9,Х; 04 
PRINT AT 10,X;D$ 
RETURN 

FOR N-1 TO &0 
NEXT N 

RETURN 


and then back to ask for the next bet. 


Опа win the score is adjusted, a pause, clear screen, and 
then back to ask for the next bet. 


Line 800 is the roll of the dice. D and E are the two die. 
X is the start of the screen location for the graphics. 
The 605085 calculate the line number of the die display. 


When the game ends you are asked if you wish to play again. 
If you answer by entering "Y" the game starts over. If not, 
the end. 


BLACKJACK 


Blackjack is one of the more popular card games. The first 
task in writing card game programs is to define а deck and 
to shuffle the deck. Arrays (DIM statements) take up a lot 
of memory and run slowly. Instead, Program 5-5 uses string 
slicing to select a card from the deck. A first thought 
might be to use the first 52 characters of the character 
set for the string. However, character 11 15 the quote and 
this cannot he used in a string. The solution is Ргозгам 
5-4 for forming a deck of 52 cards and can be used for 
other games as well as blak jack. 


Program 5-4. "DECK" 


10 REM "By" 

100 (ЕТ A$="1234567890123456789 
01234567890 12345678901 2345678901 
ән 

110 LET 4-216528 

120 FOR N=129 TO 180 

130 POKE A,N 

140 LET A=At+1 

150 NEXT N 
RUN the above program and then delete lines 
110 through 150. You now have the deck 
needed for ihe blackjack program. 


The shuffle is line 1000 to 1090 of Program 5-5, First а 
loop of from 1 to 52 is set up. Then a random number 
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from 1 to 92 is generated (X). Then each card in sequence 
is tesporarily stored in B$. A card is next selected at 
random (A$(X)) and moved to the original location replacing 
AS(N). This way every card gets moved at least once and is 
replaced by a random card. 


The rules of this blackjack game are as follows. You are 
playing against the dealer. The game starts with a shuffle 
of the deck. This takes about 4 seconds. You start with 
$1000 and must place a bet before the deal. You get tuo 
cards face up and the dealer gets one down and one up. 


The value of the cards are: Ace, 1 or 11 whichever is best; 
king, queen, jack, ten, 10 each; any other card, its numb- 
er, The object is to hold tuo or more cards that total 21 
or as nearly 21 as possible without going over 21. 1? the 
player gets a 21 in the first two cards, he wins regard- 
less of the dealer^s hand. If the player does not have 21 
but the dealer does, the dealer wins. 


If neither has 21 then you are asked if you wish a "HIT?". 
If you enter "Y" you are given another card. If you go 
over 21 you lose. If not you are asked again if you wish a 
"НЇТ?", If you ENTER anything except the "Y" it means you 
stand. When you stand it is the dealer^s turn. The dealer 
must take cards until he has 17 or more. At this point, if 
the dealer has more than 21 you win. Otherwise the one with 
the highest number of points wins. Equal points "push" and 
neither wins. 


The usual player^s strategy should be to always stand on 17 
or higher. Stand on any number from 13 through 16 if the 
dealer'/s card is 7 or higher including an ace. Hit 12 or 
under. Also if you have 17 or less and one card is an ace, 
hit. 


Because of limited memory, this program does not include 
splitting doubles or other variations of the gane. 


Ргодган 5-5 uses lots of code compacting which makes sone 
of the statesents obscure. The first four variables start- 
ing on line 100 are A$ for the deck, R$ for the rank, S$ 
for the suit, and V$ for the value. The cards ten and 
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above are given a value of A which is one above 9 and ап 
ace is given the value of B. Line 4060 set У to a value 
of from 2 to 11. 


Lines 140 to 260 initialize the variables except line 180 
shuffles the deck. Variables are: 


05 zero Es dealer^s PRINT position 
I* one P= player^s points 

M= dealer^s 00508 line Пе dealer^s points 

Ыс the starting $ ам”, Ёс player^s aces 

Q= player^s PRINT position 05 dealer ”s aces 


Lines 300-330 PRINT the players РОКЕ and get the het. 


Lines 400-550 get the player^s hand and lines 600-700 get 
the dealer^s hand. 


Lines 1000-1070 are the shuffle which has been described. 


Lines 2000-2040 get the players card and count the aces, 
8. The card is then displayed and 0 is set to the next 
PRINT position. 


Lines 3000-3050 get the dealer's card and count the aces, 
F. Except for the hole card, H$, the card is then dis- 
played and E is set to the next PRINT position. 


Lines 4000-4090 get a card from the deck and evaluate it. 
If the last card has been used, a new deck is sorted. Тһе 
cards in play will be duplicated in the neu deck. С is a 
counter to develop the suit. X is the position of the card 
in the deck. N$ is the card formatted for printing. 


Lines 5000-5060 adjust the win or loss and after a pause 
goes back to line 210 for the next hand. 
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Program 5-5. "BLACKJACK" 


КЕМ "BJ" 

REM (C) К. ORRFELT 

REM JULY 1982 

RAND 

LET А$=" deck +: 
LET R$-"423456789TJQK" 
LET S$="SDHC" 

LET У4-5823456789АААА” 


ы 


оосо — юы 


PRINT " POKE 8" И, "ВЕТ $"; 
INPUT В 

PRINT B 

6050В 2000 

GOSUB H 

GOSUB 2000 

60508 M 

IF P=21 ОК IF D-21 THEN GOTO 5010 
PRINT " HIT?" 

INPUT Y$ 

IF Y$<>"¥" THEN GOTO 600 
GOSUB 2000 

IF P<22 THEN GOTO 460 

IF 6-0 THEN GOTO 5000 

LET PzP-10 

PRINT " "SP 

LET 6-6-I 

GOTO 460 


Program 5-5. "BLACKJACK" (cont.) 


600 PRINT AT E,I;H$;D 

605 LET Е=Е+1 

610 IF D<1? THEN GOSUB M 
820 IF 0<17 THEN GOTO 610 
630 IF 0<22 THEN GOTO 680 
640 IF Е<0 THEN GOTO 5030 
650 LET 050-10 

655 PRINT " "sp 

660 LET Е=Е-1 

670 GOTO 610 

680 IF D<>P THEN GOTO 5020 
700 GOTO 5040 

1000 FAST 

1010 FOR N=I TO 52 

1020 LET XsI*INT (RNI452) 
1030 LET B$=ñ$(N) 

1040 LET AS(N)=A9(X) 

1050 LET A$(X)=E$ 

1080 NEXT М 

1020 LET X=] 

1080 SLOW 

1090 RETURN 

2000 GOSUB 4000 

2010 LET PsP&U 

2015 IF R$(C)s"À" THEN LET 6=6+1 
2020 PRINT AT 0,I;H$;P; 
2030 LET й=й+1 

2040 RETURN 

3000 GOSUB 4000 

3010 LET р=р+у 

3015 IF R$(C)s"A" THEN LET F=F+I- 
3020 LET H$-M$ 

3030 IF Е<13 THEN RETURN 
3040 PRINT AT E,I;M$;1; 
3050 LET Е=Е+1 

3960 RETURN 


Program 5-5. "BLACKJACK" (cont.) 


4000 
4005 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
5000 
3010 
3020 
5030 
5040 
5050 
5060 


IF X=53 THEN GOSUB 1000 
LET 841 

LET C=CODE 8$(X)-128 

IF C<=13 THEN GOTO 4060 
LET (50-13 

LET 5=5+1 

GOTO 4020 

LET V=CODE V$(C)-28 

LET XsX*I 

LET M$-R$(C)*" OF "+5%(5)+" " 
RETURN 

LET B--B 

PRINT АТ Е,1;Н%;0 

IF D>P THEN LET B--B 
LET U=U+B 

FOR N=I TO 100 

NEXT N 
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CHAPTER VI 


INTERNAL AFFAIRS 


To write 4004 programs, it is necessary to understand some 
of the internal workings of the Timex 1000 computer. We 
can use the computer itself to learn how things work. Two 
probless all programmers must contend with are speed and 
limited RAM storage space. Functions do not all take the 
sane amount of time to run. Programaers have many choices 
of how to write programs. This chapter goes into great 
detail to help you make these choices. 


БРЕЕП 


Before getting into the details of what is going on inside 
the computer, let/s look at how fast some of the functions 
RUN. If we type in the following program, we find it takes 
about 10 seconds to RUN. 


10 FOR N=1 TO 360 . 
30 NEXT N 
40 PRINT "DONE" 


This means 3% loops is about 1 second or each loop is а 
little less than .03 seconds. (Use your Timex 1000 to do 
the calculations.) Now let's ENTER the functions one at a 
tine and RUN and tine them. Ше will use line 20 to get 
inside the loop. 


20 LET X=2 1.01 seconds] 

20 LET X=2+2 Г.016 seconds] sane Рог +,INT,IF THEN 
20 LET X=SIN .5 1.25 seconds] same for *,-,/,SIN,RND 
20 LET Х-2##2 1.7 seconds] sane for **,50R 


So where speed is important, try to avoid using powers (++) 
and square roots. 


The computer is very busy at all times. When it appears to 
be slow it is because of the many things it needs to do. 
Without an overall view of what is going on it is easy to 
get lost in the details of each operation. 


6-1 


Where you do need to sake a long computation and need to 
speed up the program, use the FAST mode. To the previous 
program you can add: 


5 FAST 
50 SLOU 


HARBUARE 


А block diagram of the Timex 1000 is shown in Figure 6-1. 
The four aajor integrated circuits that make up most of 
the hardware are the CPU, ROM, RAH, and the 1/0 Logic 
Array. In general their functions are: 


CPU (Central Processing Unit) gets an instruction (called 
an Op Code) from КОМ or RAM. An ALU (Arithmetic Logic 
Unit may perform addition, a compare, etc. in the process. 


ROM (Read Only Memory) contains the operating system 
programs and the BASIC language programs. This is a series 
of Op codes, ROM and RAM addresses, and data such as the 
keyboard character codes used for TV display. 


RAM (Random Access Memory) stores system variables as 
needed by the ROM programs, your BASIC program, the TV 
display character file, and the CPU return stack (SP). The 
CPU stack is a list of addresses which permit the CPU to 
get back to the beginning after jumping around in memory, 


The 1/0 Logic Array does the timing needed to generate 
the TV raster, helps generate the code when a key is 
pressed, and provides the circuits for interfacing to the 
tape cassette. These are called 1/0 ports for the CPU. 
Опе other function is performed. Address line 414 and 
other control signals from the CPU are decoded 
to select ROM or RAM. 


COMPUTER CYCLES 

Computers are dynamic devices, i.e. they are always cycling 
through a logic sequence. While waiting for an external 
event such as a key being pressed, it is in what is called 


a loop. Until some condition is true, the sequence jumps 
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CONNECTOR 


Figure 6-1. Timex 1000 Block Diagram 


back to the beginning. These cycles (starting with the 
fastest) are identified as: 


The clock cycle 

The machine cycle 

The instruction cycle 
The system program cycle 
А program RUN cycle 


THE CPU CLOCK 


The CPU clock cycle is always running at 3,250,000 steps 
per second. The 2808 CPU can operate up to 4 MHz but the 
exact frequency was chosen for compatibility with the TV 
display requirements. The CPU clock is used to step the 
internal CFU logic. An internal logic sequence is called 
a machine cycle. i 
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THE MACHINE CYCLE 


There are three 2803 CPU machine cycles identified as fetch 
(get the Op code), read, and write. The total number of 
clock cycles for the three machine cycles makes one in- 
struction cycle. 


THE INSTRUCTION CYCLE 


Ап instruction cycle мау take from 6 to 33 clock cycles. 
Each Op code has been given a name (mnemonic) and is the 
basis for assemby language programming. Chapter VIII has 
more on Op codes. The point here is that over 100,000 in- 
structions can be handled per second. 


THE SYSTEM PROGRAN CYCLES 


The system programs refer to those programs that reside in 
thousands. The beginning (and end) of the system cycle is 
shown by a message or the keyword prompt in the lower left 
corner of the screen. In either case the system is scan- 
ning the keyboard waiting for a key to be pressed, Іп the 
SLOW mode, most of the time is used to generate the TV 
display leaving only about 12,000 instructions per second 
for other things. The 1/0 Logic Array uses an interrupt to 
ensure the TV timing. While rewriting the display, the 
computer 15 now slowed to the point where we begin to see 
the time it takes for program cycles. 


THE PROGRAM RUN CYCLE 


When ue RUN a BASIC program it may take from а feu seconds 
to many minutes. The time it takes may be programmed 
deliberately by the use of PAUSE statements ог may be 

the result of scanning the variables file. This brings us 
to the organization of RAN. 


RAM FILES 
First, a discussion of how the memory is used and used up 
and then second, back to how the use of memory affects the 


tine to RUN a program. The 1000 uses a system called 
dynamic memory allocation. боме of the lower addresses are 
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reserved for use Бу the КОМ programs and contain the 
addresses of the other RAM files. КАМ files include: 


RAM System File 
Program File 

Display File 

Program Variables File 
Stacks 


RAM SYSTEM FILE 


Numbers and addresses that change from time to tine as 
needed by the programs in RÜM were allocated by the people 
who wrote the system programs. Тһе 21808 CFU provides some 
temporary storage but most is in RAM. The first 125 bytes 
are reserved for this purpose and are called System Var- 
iables. You can PEEK at them (and РОКЕ some of then if 
you are careful) for use in BASIC programs. 


PROGRAM FILE 


The program file always starts at 16509. The top of the 
file is just below the start of the display file. Each 
line contains two bytes for the line number, two bytes for 
line length, and an ENTER character at the end of the line. 
The first item must be a keyword followed by the codes for 
the characters or tokens. After each constant a six byte 
binary form of the constant is inserted. See Ргозган 6-2. 


DISPLAY FILE 


The Display File is the memory image of the screen display. 
This file may take from 25 to 793 bytes of RAM. Whenever 
ihe screen is blank, the file consists of just 25 ENTER 
Characters (118). The first ENTER character is the start of 
the file (see Program 6-2). The following 24 ENTER char- 
acters represent the end of each line. If the screen is 
full, including the bottom tuo lines normally used for 
input, the display file will include 768 plus the 25 ENTER 
characters. Program 6-3 15 an expansion of Program 6-1 to 
show the way the Display File expands as the program is 
RUN. The top of the display file grows from address 14787 
to address 17060 as the program RUNS. By the time the dis- 
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19 
109 
119 
120 
200 
210 
220 
230 
240 
250 
RUN 


Program 4-1. System File 
PROGRAM 


REM "SYSTEM FILE" 

PRINT "SYSTEM"; TAB 9;"CONTENT" 
PRINT "ADDRESS" 

PRINT 

FOR N-0 TO 26 STEP 2 

LET &-16386*N 

LET В=А+1 

PRINT Ay":  "j 

PRINT PEEK A+256*PEEK в 

NEXT N 


DISPLAYED 


SYSTEM CONTENT 
ADDRESS 


16386: 18428 {Top of machine stack] 
16388: 18432 [Top of RAM + 11 

18390: $1440 E+] 

16392: 0 [+] 
16394: 110 [CURRENT line number] 
16296: 16695 [Start of Display File] 
16398: 18815 ЕРгіпі position] 

16400 16844 [Program Variables Filel 
16402: 16882 [Address of variables] 
16404: 18903 ТЕНТЕК file location] 
16404: 16674 [PEEK or POKE iten] 
15408: 49176 [+] 

16410: 16945 [Calculator stack bottom] 
16412: 14959 [End of RAM in usel 


[+] 


content not properly decoded 


Program ó-2. Ргозгам File 
PROGRAM 


10 REM 23 

20 REM "23" 

30 LET В=1 

40 LET B=B+23 

100 FOR N=0 TO 150 

119 LET НЕРЕЕК (16509+М) 
120 PRINT U;" "; 

130 IF Uz118 THEN PRINT 
257 NEXT N 


DISPLAYED 


This is line 10 
The line has 4 characters 
REM 2 3 ENTER 
0 10 4 0 234 30 31 118 


REM " 2 3 " ENTER 
0 20 6 0 234 11 30 31 11 118 


LET B = 1 binary 1 1 ENTER 
0 30 11 0 241 39 20 29 126 1290000 118 


LET B = B + 2 3 binary 23 J ENTER 
0 40 14 0 241 39 20 39 21 30 31 126 132 56 0 0 O 118 


FOR N = ОГ binary O 1 
0 100 21 0 235 51 20 28 126000002 
Г binary 150 1 ENTER 
126 136 22 0 0 0 118 


101 5 9 
23 29 33 28 


11390243 51 118 
118 


play is completed, 8 more bytes will be added for the last 
address plus 5 more for the message on line 23. The end of 
RAM in use will then be address 17104. Unused RAM is about 
200 bytes for this program, 


Let’s trace a keyboard entry after NEM. The display file 
will consist of 24 ENTER characters, an inverse К, and one 
ENTER. The screen will be blank except for the inverse К 
in the lower left corner of your screen. 


When you press the 1 key, everything is shifted up in 
memory and a 1 is placed just before the inverse K. The 1 
is also placed in the ENTER file. Оп the next screen scan, 
the number appears on your TU set. 


Now press the P key. Because you are in the keyword mode 
ihe word PRINT (with spaces) is placed in the display file 
and the token for PRINT is placed in the ENTER file. The 
ENTER file is needed for editing to distinguish between а 
token and the spelled-out word. The prompt character is 
changed to an inverse L. 


Now press the ENTER key. At the end of the next scan the 
ENTER file content is formatted and placed in the Program 
File. The line is then reformatted from the Program File 
to the first line of the Display File. The line 23 is re- 
placed with just the inverse K character and the ENTER file 
is erased. 


When memory gets full, the display file is the last to go. 
The display will be chopped-off at the bottom by the 
dynamic allocation system to prevent loss of other files. 
When you see this happen, it is a warning that memory is 
short. During a program listing everything is still ОК x 
even if only a few lines are showing. The minimum dgsplay 
is 25 ENTER characters and enough room to display commands 
and/or messages. 
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SYSTEM 
ADDRESS 


16383: 
16388: 
16390: 
16392: 
16394: 
16396: 
16398: 
16400: 
16402: 
16404: 
16406: 
16408: 
14410: 
16412: 


Ргозгам 6-3, Display File 


PROGRAN 


10 REM “DISPLAY FILE" 
100 PRINT "SYSTEM"; TAB 8; "СОМТЕМТ", "ТОР OF” 
110 PRINT "ADDRESS", "DISPLAY" 


120 PRINT 
130 LET C= 


16400 


200 FOR N=0 TO 26 STEP 2 


210 LET ñ= 
220 LET B= 
230 PRINT 


18386%М 
831 
Ai": и 


240 PRINT PEEK A+2564PEEK В, 
250 PRINT PEEK C*256*PEEK(C* 1) 


260 NEXT N 


BI 


CONTENT 


18428 
18432 
61440 
9 

110 
16765 
16954 
16990 
17041 
17069 
16712 
49214 
17132 
12153 


SPLAYED 


TOP OF 
DISPLAY 


16851 
16872 
12893 
16914 
16935 
16956 
16977 
18998 
12019 
17040 
17961 
17982 
17193 
17124 


[display file top after 18428 
is PRINTed] 


[display file after 17153] 


PROGRAM VARIABLES FILE 


Each time an INPUT, LET, DIM, or FOR/NEXT statement is 
encountered in your program, as the program is RUN, ап 
entry is made in the variables file. If the variable nane 
already exists it is updated. If it is not found the new 
variable is created. They remain there until erased by a 
CLEAR, RUN, or NEW command. There are six formats for 
storing program variables as follows: 


1. Strings (i.e. LET A$="1") 
Takes three bytes plus the number of characters 
in the string. RUN^s fast. (Four bytes in example). 


2. One letter numeric (i.e. LET A=1) 
Always ó bytes. RUN’s a little slower than а 
string as it needs conversion to binary. 


3. More than one letter numeric (i.e. LET ACE=2) 
This one takes five bytes plus the number of 
characters in the name. Eight are used in the 
example. These variables RUN slow as the паме 
is scanned for length when looking for a match. 


4. String Arrays (i.e. DIM #8(2,3)) 
Takes four bytes plus two tines the number 
of dimensions plus the number of elements. 
Only 14 bytes are used for the example. 
RUN’s fairly fast and takes little memory. 


5. Numeric Arrays (i.e. DIM B (2,30) 
Takes four bytes plus two times the number 
of dimensions plus five times the number of 
elements. In the example 38 bytes are used. 


6. FOR/NEXT loop (i.e. FOR N=0 TO 200 STEP 2) 
Always takes 18 bytes. Space for STEP is 
part of the format. 


Program 6-4 displays the variables file showing each type 
of entry. The first byte of each entry contains the code 
which is the entry type plus the code of the first char- 
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Program 4-4. Variables File 


PROGRAA 


10 REM "VARS FILE" 


119 
120 
130 
140 
159 
169 
170 
189 
190 
200 
RUN 


Var. tst By 
8% 20 
А 102 
АСЕ 164 
В%(2,3) 199 
(2, 3) 135 

99 

00 
N 243 

0 0 


Note: 128 (ВОН) is the end of vars. 


LET 
LET 
LET 
118 
DIA 
FOR 
LET 
LET 


agent" 
8-1 

ACE=1 
B$(2,3) 
В(2,3) 
N=0 TO 94 


НЕРЕЕК 16400+256#РЕЕК 12401 


41444 


PRINT PEEK Из" "+ 
НЕХТ Н 


te 


DISPLAYED 


D Ф o < hI ra at 


- 
[= - 


[String Variable] 
[Numeric Array] 
[Numeric Array] 
[String Array] 


[Numeric Array] 


3560000 129 


CFOR/NEXT Loop 


file character. 


acter of the name. For example, A$ is a string and the 
first byte is 32 + 38 which equals 70. When searching for 
an entry, only the first byte need be checked for type and 
паме. An exception is numeric variable names with sore 
than one character in the name. In this case additional 
characters have to be tested for match. 


STACKS 


There are two stacks at the top of RAM, the GOSUB and the 
machine stack. The GOSUB stack is the return line number 
for your BASIC subroutines. The machine stack is a return 
stack for the 780 CPU. The GOSUB stack starts with 4 bytes 
for two line numbers but мау vary in length. 70 to 100 ог 
even more may be needed for the stacks. 


CHAPTER UII 
SLICK TRICKS 


This chapter consists of unrelated tips and tricks. The 
clever prograsaer can make a computer easy to use, 
dramatic, and even useful. There are ways to jam sore 
program into 2K Memory. There are ways to speed up a 
program. Who knows what obscure logic lurks in the mind 
of a computer. Only the programmer. 


INKEY$ 


This function is a real sleeper. During a program run, it 
tests the keyboard for a single string character. It does 
not wait for ENTER. First 16175 look at a pause control 
(not PAUSE), This subroutine is used in the next chapter 
in Program 8-3, 


300 


600 IF INKEY$="M" THEN 6010 700 
610 RETURN 

700 IF INKEY$="N" THEN RETURN 
710 GOTO 700 


Looking at the keyboard we notice the M key has the word 
PAUSE just above it. Above the N key is the word NEXT. 
each line in the main body of the program we use a GOSUB 
500. If the M key is not held down, line 610 is a RETURN 
and the next line is PRINTed. If the M key is held down, 
we qo to line 700 which waits for the N key to be pressed. 
Used with SCROLL this gives the user control over the dis- 
play. To the user the keys are PAUSE and NEXT but to the 
programmer they are M and N. 


NEU 


This next trick uses both INKEY$ and NEW. If you wish to 
send a secret message or have a program that only you can 
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LOAD, just use NEW to blot out the program, 


10 RER "NEU" 

20 PRINT "MEET ME AT THE ROUND HOUSE." 
30 PRINT 

40 PRINT "YOU CAN T CORNER ME THERE." 
400 SAVE "NEU" 
410 IF IRKEY$<>"L" THEN NEW 
420 GOTO 20 


Use GOTO 400 to SAVE the program on tape. When it is 
LüATed the program will be erased by line 410 if ihe L 
key is not held doun. 


Qne моге word about INKEY$. The characters 5, 6, 7, and 8 
have four arrows on them which suggests a display contral 
for games and charts. Characters 0 and W are suited for 
PLOT and UNPLOT control. 


24 LINE SCREEN 


You can РОКЕ 14418 to use all 24 lines on your TV screen. 
This byte conirols the lines reserved for the ENTER file 
display. If You FOKE in a 0 in а program you can use all 
24 lines. Hon t forget to FOKE in a 2 before the program 
ends. Try this: 


10 FOKE 16418,0 

20 FÜR N-1 TO 24 

30 PEINT "THIS IS THE LINE NUMBERED ";N 
40 NEXT Ñ 

50 РОКЕ 16418,2 

60 PAUSE 1000 


If you wish to protect the lower line of the screen fron 
scrolling, you can FÜKE in a 3. A poke in the right place 
does wonders. 

TV SCREEN TEST 

You can use your computer to test focus, linearity, and 


convergence. The following program uses the POKE 16418,0 
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to display a full screen of dots. 


10 РОКЕ 16418,9 

20 FOR N=0 TO 383 

30 PRINT "a"; 

40 NEXT N 

90 IF INKEY$="" THEN GOTO 50 
60 CLS 

70 РОКЕ 14418,2 


There is INKEY$ again on line 50. This freezes the display 
until a key (any key) is pressed. 


COMPACTING A PROGRAM 


Consider the statement: LET X=0. In the ргозгам file, the 
0 takes one byte followed by its binary form which takes 
six more bytes. An equivalent but obscure form would bes 
LET X=NOT PI where NOT and PI are functions. NOT is a 
logic function which says that PI is not a zero and there- 
fore the expression is false. А 0 is assigned to X to 

show the statement is false. Anyway, the second form takes 
two bytes of program storage compared to seven for the 
first form, a saving of five bytes. However, the display 
file is five bytes longer while the program is being dis- 
played. Usually this is not a problem as the program 
variables can be cleared while listing the program, 


Here are three short forns of constants: 


NOT PI = Q 
SGN PI = 1 
INT PI = 3 


Remember the X is added to the program variables file and 
that takes six more bytes. If a variable is used as a 
constant in only one or two places, it is shorter to use 
the constant in each statement. If a variable can be 
reused in different parts of a program, six bytes are 
saved each time. Also a FOR/NEXT loop creates an eighteen 
byte variable. If it can be reused eighteen bytes are 
saved. 
If at the end of a program you wish to start over and don't 
need to save the variables, use RUN instead of GOTO 10. 
This saves eight bytes. 
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Tokens can Бе used inside quotes to save space. For key- 
words type the token for THEN, then the keyword, shift over 
the keyword with the left arrow, and then delete the word 
THEN. Tokens for functions can be typed directly. 


String variables can be used to compact print statements. 
Here is a program called "А3:С5", 


Program 7-1.  A$,C$. 


10 REM "АБ; СЗ" 

20 LET А$=" 1000" 

30 LET B$-" ШІ" 

40 LET C$="CHUCK " 

90 PRINT “HOW MUCH";4$;B$;"A';A$;C$" "ics 
60 PRINT 

20 PRINT "IF 4";4$5;C$;B$;C$;5$; "7". 

80 PRINT АТ 20,0; 

90 PRINT "PRESS ""СОМТ"" FOR ANSWER" 
100 STOP 
110 CLS 
120 PRINT "à",8$;C$;B$;C$;"A8 МИСН"ЗАФ; "Аб А"148:08:89 
130 PRINT "IF A";6$;C$; B$;C3;A$; "." 


CLUB DEMO 


Program 7-2 15 a moving display for putting in a store 
window to get attention of passersby. You can change the 
messages to suit your own purposes, The subroutine on 
lines 1010 to 1030 cause the entire screen to scroll up and 
off the screen. If you 80508 1000 you get a feu second 
delay before scrolling. The main part of the program has 
four parts: 


Part 1. Lines 100-230 draw a box and put the main 
these inside. 


Part 2. Lines 240-490 first put up a sign and then has 
а puppy go to it for a look. Puppy wags tail. 


480 
490 


Program 7-2, Club Deno. 


REM "DEMO" 
REM (C) К. ORRFELT 

REM OCT. 1982 

FÜR N=9 TO 53 

PLOT N,3ó 

PLOT N,6 

NEXT N 

FOR N-3à TO 6 STEP -1 
PLOT 9,N 

PLOT 53,N 

NEXT N 

PRINT 4T 8,11;"JOIN THE" 
PRINT AT 10,11;"TS 1000" 
PRINT АТ 12,11;"CLUB NOU" 
80808 1000 

FOR N=1 TO 30 

PRINT AT 13,N;"3" 18581 
NEXT N 

PRINT AT 10,22;"MAKE NEU" 
PRINT AT 11,22; "FRIENDS" 
FÜR N=0 TO 14 


PRINT АТ 10,N;" 3 gq" Г 2038411 M 1Гд5)11(4841 
PRINT AT 11,N;" 3233" Г 2095819 JEg 114551 
PRINT АТ 12,8)" 44" C IC JfgsWIl 114581 


NEXT N 

FOR N=0 TO 100 

PRINT AT 10,163" " 

PRINT AT 10,1ó;"a" 14541 
NEXT N 

SCROLL 


(continued) 


за 


Part 3, Lines 500-590 add messages to the screen. 


- Part 4. Lines 600-620 list the end of the program. Поп” 1 
list more than the last 21 lines or you will get 
an error message which will stop the display. 
Note the message starting at 900. 


Line 430 then causes the entire process to repeat. 


BINARY DUMP 


Ргодгам 7-3 is a binary dump. If you are a student of 
Machine code, you can enter any address and see the binary 
codes displayed with the address shown every eight bytes, 
Three of the more interesting addresses are given. The dot 
matrix pattern for the character set that is used by the TV 
display begins at the address 7680. If you wish to skip to 
the zero or the letter A, use the other addresses shown. 
Stop the display by using the BREAK key. 


Line 280 PRINTs either a 0 or an inverse 1 for emphasis. 
If you wish just 075 and 175 change the line to: 


280 PRINT 1 
Binarv representation is formed by dividing a byte C by 


descending binary numhers 128, #4, 32, 16, 8, 4, 2, and 1 
and taking the integer which will be a 0 or 1. 


929 


1000 


1020 
1930 
1940 
2000 
2010 
2020 


Program 7-2. Club Demo (cont.) 


PRINT "EVERY MONDAY NIGHT" 
SCROLL 

SCROLL 

PRINT "SHARE YOUR PROGRAMS" 
SCROLL. 

SCROLL 

PRINT "SIGN UP HERE" 
SCROLL 

SCROLL 

00508 1000 

CLS 

LIST 900 

GOSUB 1000 

GOTO. 100 

REM жж YOU CAN LEARN BASIC 
REM PROGRAMMING жж 

REM 

REM 

00508 2000 

FOR N«1 TO 22 

SCROLL 

NEXT N 

RETURN 

FOR N-1 TO 100 

NEXT N 

RETURN 
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Program 7-3. Binary Dump 


REM "BDUMP" 

REM (C) К. ORRFELT 
REM ОСТ 1982 

PRINT "BINARY DUMP" 
PRINT 

PRINT "ADDRESS","FOR" 
PRINT 

PRINT "7680",""" чан 
PRINT 879047, «omg 
PRINT "72984", дын 
PRINT 

PRINT "ENTER FIRST ABDRESS:" 
INPUT À 

SCROLL 

PRINT A 

SCROLL 

FOR J=i TO 8 

LET C-PEEK А 

LET B-128 

FOR N=1 TO 8 

LET B-INT (C/B) 

PRINT CHR$ (28412230), 
LET C=C-B*D 

LET B-B/2 

NEXT N 

SCROLL 

LET A=Ati 

NEXT J 

GOTO 210 


CHAPTER VIII 
WHAT THE HEX? 


Who needs hexadecimal numbers? First, there are those who 
are interested in the ROM program, Disassesblers print the 
programs in hex. For this you will need two more books; 
one with the disassembled ROM and one on the 280 CFU in- 
struction set. Second, there are those who wish to do 
programming in machine code. This is usually used to сой- 
trol special 1/0 devides so you 11 need to buy or to build 
hardware. А 780 CPU book on the instruction set will also 
he needed. This chapter just offers some tools needed То 
get started. 


The conversion from hex to binary is given here as а 
reference. 


HEX BINART DECIMAL НЕХ BINARY DECIMAL 
Oh = 0000 = 9 Bh = 1000 = 8 
ih = 0001 = 1 9h = 1901 = 9 
2h = 0010 = 2 Аһ = 1010 = 10 
ih = 0011 = 3 Bh = 1011 = 1i 
4п = 0100 = 4 Ch = 1100 = 12 
Sh = 0101 = 9 Dh = 1101 = 13 
éh = 0110 = ó Eh = 1110 = 4 
7h = 0111 = ? Fir = diii < 15 


Hexadecimal numbers are the bridge between binary, machine 
code, and hardware. What you need to develop is double 
think. When you see address 4090h vou should think binary 
0100 0000 0000 0000, Address lines are nusbered from AG to 
818. 240008 tells you А14 is high (about four volts?) and 
all other address lines are low (about 0,5 volts). Line 
A14 is decoded to turn the КОМ off and to turn КАМ on. So 
4000h is the first address in RAM. Maybe this should be 
called double double think. 


Each memory address is accessed by eight data lines. This 
stores eight bits or one byte. Bytes are machine Op codes 
or other data as required. А byte is represented by two 
hex numbers, 


DECIMAL TO HEX 


Program 8-1 converts decimal numbers from 0 to 65535 to hex 
format. Decimal 65535 is FFFFh. Decimal 0 is 0000h. The 
program works by counting the number of 409875, 25675, 

1876 and the remainder. Counting is done by lines 310 to 
420 in the program. X is the most significant figure, 

then Y, then 7, and С is the remainder. The characters 0 
through F are formed by adding 28 to the value for print- 
ing. Another way of doing the same thing is shown in 
Program 8-3, lines 520 through 570. The counting method 

is used here as it is easier to understand. 


Program 8-1. Decimal to Hex Conversion 


10 REM "DTOH" 
20 REM (C) R. ORRFELT 
30 REM SEPT 1982 
100 SCRÜLL 
110 PRINT "ENTER DECIMAL NUMBER" 
120 SCROLL 
200 INPUT B 
210 LET X=0 
220 LET Y=0 
230 LET Z=0 
300 LET C=B 
310 LET б-С-4096 
320 IF С>-0 THEN LET X=X+1 
330 IF C>=0 THEN GOTO 310 
340 LET С=С+4096 
350 LET C=C-256 
360 IF C>=0 THEN LET Y=Y+1 
370 IF C>=0 THEN GOTO 350 
380 LET С=С+256 
390 LET C=C-16 
400 IF С>-0 THEN LET 2=2+1 
410 IF C>=0 THEN GOTO 390 
420 LET C=C+16 
430 SCROLL 
440 PRINT B,CHR$ (X*28) ;CHR$ (Y428); 
450 PRINT CHR$ (2428); CHR$ (C*28);"H" 
500 6010 200 
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HEX TO DECIMAL 


Program 8-2 converts hex numbers from 0 to FFFFh to decimal 
numbers. The key idea in this program is to evaluate each 
character in the hex number by position. String slicing is 
used in lines 296 to 299 to select one character. The 
number of characters, L, is found on line 210. A GOTO line 
is calculated by 300-L to go to the line having the 

correct value. For five digits you could add a line: 


295 LET N=65536#(CODE АЗ(1:-4)-28) 


and so on. Both this and the previous program illustrate 
the value of each position in a hex number, 


Program 8-2. Hex to Decimal Conversion 


10 REM "HTOD" 

20 REM (C) К. ORRFELT 

30 REM SEPT 1982 
100 SCROLL 

110 PRINT "ENTER HEX NUMBER" 

120 SCROLL 
200 INPUT A$ 
210 LET L=LEN А$ 
220 LET N=0 
230 GOTO 300-L 
296 LET N=4096*(CODE A$(L-3)-28) 
297 LET N=N+256%(CODE A$(L-2)-28) 
298 LET N=N+16*(CODE A$(L-1)-28) 
299 LET НЕМ+СОПЕ A$(L)-28 

300 SCROLL 

310 PRINT 4$;"H",N;"D" 
500 8010 200 


READING HEX NUMBERS 

The conversions of hex numbers from 0 to Fh was given оп 
page 8-1. For larger numbers think as follows. 1 less 
than 10h is Fh. 1 less than 1008 is FFh. 1 less than 
1000h is FFFh. 1 less than 10000h is FFFFh. The width of 
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your TU display is 20h characters (2416). Two lines 15 40h, 
three 60h and so on. Five lines hold А0Н characters 
(remember АҺ is 10 decimal). Seven lines is [Oh and eight 
is 100h which is 254 characters. For sixteen lines you 
will have 200h characters or 512 decimal. 22 lines 15 
found by adding six lines to 16 lines ог 2С0ћ. It is well 
to remember 0,2,4,6,8,A,C, and E are even numbers in hex. 
256 bytes is sometimes called a block. There are four 
blocks in а ІК memory which is 400 hex. Of course your 

ӘК memory is 800n. Getting to the fourth digit which has 
has a decimal value of 4095, the ВК КОМ holds 2000h hytes. 
Addresses range from 0000h to 1FFFh. RAM starts at 16K 
which is 4000h. RAM addresses therefore are from 4000h to 
to 47FFh. If you add a 16K RAM to your computer, the RAM 
addresses will be 4000h to 7FFFh (one less than 8000h). 


If vou look at the character set you will notice a pattern 
between normal and graphic mode characters. A space is 0 
and а graphic space is 80h. А zero is iCh and a graphic 
zero 15 9Ch. In each case only the most significant bit is 
changed which 15 adding 80h. 


HEX DURF 


Enter the starting hex address and this program dumps ROM 
or RAM bytes in tex. The address of the first byte and 
then eight bytes temporarily stop the dump, press the M key 
dump, press the М key (PAUSE); to restart, press the N key 
(NEXT), 


The key idea in this program is in lines 210 and 220, The 
byte 15 defined as С and will always be between 00h and 
FFh. The first character is formed by dividing С by 16 
and discarding the remainder. 26 is the CODE for zero and 
is added to the offset. The second character is formed 
from the remainder (C-16*INT (С/16)) plus the offset. The 
next address is й=й+1 and the cycle is repeated. 


Starting from the top, the input is stored in ñ$. Lines 
140 and 150 pad A$ out to four characters with leading 
zeros. The decimal address is formed on line 160. The 
GÜSUB 500 converts the decimal address back to hex and 


8-4 


Program 8-3. Hex Dump 


REM "DUMP" 

REM (С) К. ORRFELT 

REM SEPT 1982 

SCROLL 

PRINT "ENTER STARTING HEX ADDRESS" 
SCROLL 

INPUT 85 

IF LEN A$<4 THEN LET AS="0"+A$ 

IF LEN AS<4 THEN GOTO 140 

LET 8#:4096# (СОПЕ А8(1)-28)42564(000Е А8(2)-28) 
+16# (СОВЕ AS(3)-28)+(CODE A$(4)-28) 
GOSUB 500 

IF PEEK 1644145 THEN GOSUB 500 

LET C=PEEK A 

PRINT CHR$ (28+INT(C/16))5CHRS (28*C-16* INT(C/160);" "5 
LET А=А+1 

GOTO 200 

SCROLL 

LET B=A 

FOR N=4 TO 1 STEP -1 

LET D=INT (B/16) 

LET A$(N)=CHR$ (B-1640+28) 

LET В=р 

NEXT Н 

PRINT A$ 

SCROLL 

IF INKEY$="4" THEN GOTO 700 

RETURN 

IF INKEY$-"N" THEN RETURN 

GOTO 700 


Hex Dump Display 
ENTER STARTING HEX ADDRESS 


4071 
00 04 08 00 Ей OB 29 ЗА 32 35 
4087 
OB 76 00 14 OF 00 EA 10 28 11 
4091 
37 1B 00 34 37 37 2B 2A 31 39 
4098 
8-5 


prints them with scrolling. Line 200 checks the printing 
position and 5 characters before the end of the line starts 
а new line. Lines 600-710 are the pause and next routine. 


The display shows the beginning of the program itself which 
always begins at 4078, The bytes are now all in hex. The 
second byte shown is OAh which is line 10 of the program. 
The ENTER character at the end of each line is 761. 


HEX PEEK ОК РОКЕ 


Program 8-4 lets you enter hex code programs into Кай, 

When you RUN this program, you are asked for the mode: P 
for peeking, 0 for poking, or E for ending the RUN. Next 
you are asked for the starting address which can be from 
one to four hex characters. The hex address 15 A$ and sub- 
routine 1000 forms the decimal address A. If you select 

F, addresses and hex bytes are displayed until some key is 
pressed which returns you to the start. If you select 0, 
you are asked for the starting address, and then you can 
enter hex bytes, one at a time. These bytes must be two 
characters from 00 to FF. Enter a character larger than FF 
(say L) and you will be returned to the start. 


For peeking, line 310 sets C to the byte at address A. 
Line 320 prints the hex address A$ and the hex version of 
C. 60508 2000 forms the next address, both the decimal A 
and the hex A$. 


For pokina, line 520 gets your input byte. Line 540 
displays the hex form and line 550 puts it in memory. 


Program 8-4, Hex Peek or Poke 


10 REM "РОКР" 

20 REM (C) R. DRRFELT 

30 REM БЕРТ 1982 

100 SCROLL 

110 PRINT “РЕРЕЕК, 0-РОКЕ, ОК E=END: "; 
120 INPUT Р5 
130 PRINT P$ 

140 IF P$-"E" THEN GOTO 10000 

150 SCROLL 


Program 8-4. Hex Peek ог Роке (сопі. ) 


PRINT "ENTER HEX ADDRESS: "; 
INPUT A$ 

PRINT A$ 

SCROLL 

SCROLL 

GOSUB 1000 

IF Р3< "0" THEN GOTO 500 

REM (HEX PEEK) 

LET C=PEEK A 

PRINT A$, CHR$ (284INT (C/142); 
CHR$ (284C-16*INT (C/158));"H " 
GOSUB 2000 

IF INKEY$<>"" THEN GOTO 100 
6010 310 

REM (HEX РОКЕ) 

DIM B$(2) 

INPUT BS 

IF B$2"FF" THEN GOTO 100 

PRINT A$, B$;"H " 


POKE A, (164(CODE B$(1)-28)+CODE B$(2)-28) 
GOSUB 2000 

GOTO 520 

IF LEN A$<4 THEN LET A$="0"+A$ 


IF LEN A$<4 THEN GOTO 1000 


LET A=4096#(CODE 4$(1)-28) 4256 (CODE. A$(2)-28)+ 
Таж (СОВЕ #5(3)-28) «(CODE A$(4)-28) 


RETURN 

SCROLL 

LET А=А+1 

LET Н=А 

FOR 154 10 1 STEP -1 

LET D=INT(H/16) 

LET AS(T)=CHRS (Н-16#0+28) 
LET Н=й 

NEXT 1 

RETURN 


USR EXAMPLE 


As an example of the USR function, we will write a machine 
code program for printing the RUN number. Because this 
program does not use a program variable, the RUN number is 
not erased by RUN and can be saved on tape. We will use 
the unused byte at 407B (see Table 8-1). Here is the 
program: 


ЗА 7B 40 14 a,4078 [load accusulator with byte at 40781 


3t inc a Lincresent accumulator] 

32 7B 40 14 407B,a [load 4078 byte from accumulator] 
4F 14 с,а [load с register from accumulator] 
АЕ хог а [zero accusulator] 

47 ld b,a [load b register with zero] 

59 ret [return to BASIC program] 


To proceed, first LOAD program 8-4. Next modify the 
program by changing line 20 to: 


20 REM 12345678901 


This reserves 11 bytes for our hex program. We wili need 
the RAM address of the first 1 on lilne 20. To get this: 


RUN [run the program] 
Р [for peek] 
4070 [for starting address of program file] 


Starting at 408E you will see the hex code for 1, 2, 3, 4 
(1B 1E etc.). Press any key to stop the listing and get 
back to the selection мойе, 


So 408E is the starting address for our machine code. То 
continue, we enter the hex code as foliows: 


0 [for роке] 
408Е [starting address in REM statement] 
24 7B 40 3C 32 78 40 АҒ АҒ 47 C? [Chex codel 


То end the poke Mode, press any key larger than "FF" (say 
L), The mode selection will be displayed. ENTER E to end 
the RUN mode. We'll need the decimal version of the hex 
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address so ENTER the following without line numbers: 


LET A$="408E" 
GOSUB 1000 
PRINT А 


The decimal address 16525 will be printed. Now complete 
the program by entering: 


30 SCROLL 
40 PRINT "RUN NO. ";USR 14525 


Nou test the machine code program Бу RUNning and ending the 
program a few times verifying the run nusber is updated 
each time. SAVE the program on tape, LOAD, and RUN showing 
the run nuaber is not reset. For other programs, you may 
just want to run the USR program without needing the number 
in bc. A popular form is to use: RAND USR (address). 


And that is how to use USR! 
HEX FIND 


Ргозгам 8-5 is a utility for finding а sequence of hex 
bytes of any length. Each time a match is found the 
address of the first byte is printed. Enter the starting 
and ending addresses in hex. Next enter the bytes for 
which you are looking in the following format: 


01 SF АА FF 


In this program, line 420 tests for a match of а memory 
byte and D$ byte. D$ is the string of bytes formed on line 
320. The GOSUB on line 310 converted your input to one 
byte рег byte. When a watch is formed, the FOR/NEXT loop 
on line 410 is completed and the GOSUB 3000 prints the 
address. 


The GOSUB is used to convert the hex input addresses to 
binary fors. Lines 200-230 juggle A's and B^s so that 
only one subroutine is needed. In the end A is the binary 
form of ñ$ and B is the binary fore of B$. 


Ргозгам 8-5. Hex Find 


10 REM "FIND" 

100 PRINT "ENTER FIRST HEX ADDRESS: "; 
110 INPUT A$ 

120 PRINT А$; "Н" 

130 PRINT "ENTER LAST HEX ADDRESS: "; 
140 INPUT B$ 

150 PRINT B$;"H" 

160 PRINT "ENTER HEX CODE: "; 

170 INPUT C$ 

180 PRINT C$ 

190 PRINT 

200 GOSUB 2000 

210 LET A=B 

220 LET AS=B$ 

230 GOSUB 2000 

290 LET N=1 

300 LET D$-"" 

310 GOSUB 1000 

320 LET D$=D$+CHR$ C 

330 IF NXLEN C$ THEN GOTO 310 

400 LET A=A-1 

410 FOR X=1 TO LEN D$ 

420 IF PEEK (А+Х) <>СОВЕ D$(X) THEN GOTO 450 
430 NEXT X 

440 GOSUB 3000 

450 LET #-8+ 1 

460 IF A=B THEN GOTO 10000 

470 GOTO 410 

1000 LET C=16*(CODE C$(N)-28)+CODE С8(Н+1)-28 
1010 LET N=N+3 

1020 RETURN 
2000 LET B-4096*(CODE A$(1)-28)+256*(CODE A$(2)-28)+ 

16#(CODE A$(3)-28)+CODE A$(4)-28 

2010 RETURN 

3000 LET Н=А+1 
3010 FOR 154 TO 1 STEP -1 

3020 LET D=INT(H/14) 

3030 LET Н9(1)-СНК% (Н-16ж0+28) 

3040 LET H-D 

3050 NEXT I 

3060 PRINT H$;"H  "; 

3070 RETURN 
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CHAPTER VII 


Ргодгам 8-6 
uses string 


MENU 


is а tape menu program for this chapter. It 
Slicing to fors the паме of the program to be 


loaded. All programs names in this chapter are four 
characters long. A$ is defined as a string of all names 
run together. When you input a number at line 200, lines 


210-220 pick out the corresponding letters from the string. 


Program 8-8. Charter 8 Menu. 


REM "0" 

REM (С) R, ÜRRFELT 

REM SEPT, 1982 

LET ASz"DTOHHTOUDUMPPDRPF IND" 

PRINT "SELECT FILE BY NUMBER" 

PRINT 

PRINT "1, "43 (1 TO 4);" DECIMAL TO HEX" 
PRINT "2. "SA8(S TO 8);" HEX TO DECIMAL" 
PRINT "3. “SAS(? TO 12);" HEX DUMP" 
PRINT "4, "SA¢(13 TO 1453;" HEX PEEK OR POKE" 
PRINT "S. "i4$(12 TO 20);" FIND" 

INPUT N 

LET NzN*4-3 

LET аззай (мн TO N+3) 

LOAL ñ$ 

GOTO 10000 

SAVE "0" 

GOTO 100 


RAM AUDRESSES 


Table 8-1 identifies sone of the RAM addresses in both 

hex and decimal. More detail can be found in the 1000 
instruction manual supplied with your computer. An example 
of how to use this information is shown on line 200 of 
Program 8-3. Тһе column count is checked to prevent 
overflow of the line. Youll need to master Chapter VI 

to make full use of this table. 


ROM ADDRESSES 


Table 8-2 identifies some of the ROM routines. The DUMP 
program can be used to display the hex code. The first 
eight items are "RESTART" addresses which can be called 
either by a program instruction or by hardware interrupt. 
The 1/0 chip puts out an interrupt to restart the ТУ screen 
display. For those who wish greater detail, a book on the 
ZX81 disassembled КОМ 15 recommended. 


Table 8-1. RAM Addresses 


Report code byte 
5ysten flags 
GOSUB return address 

System top of RAM address + 1 

System mode (K, L, F, or G) byte 

Current line number for BASIC (2 bytes) 
ROM type byte 

Current line number for editor (2 bytes) 
Display file address 

PRINT position 

Frogram variables file address 
Current variable address 

ENTER input file address 

Next BASIC character address 
Frevious BASIC character address 


(continued next page) 
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Table 8-1. КАН Addresses (cont.) 


Comments 


Botton of stack 


Hex [Decimal 


16412 End of stack 

16414 Calculator’s b register 

16415 Calculator” s scratch pad address 

16417 | Not used 

16418 | Number of display lines reserved for input | 

16419 | Top program line for LIST 
| 4025; 16421 | Last key pressed | 
| 4027! 16423. Keyboard debounce status | 
| 4028 | 16424 | Blank lines between TV frames (31) | 
|4029 16425 , Next program line address in RUN | 
|402В 16427 Line number for CONT | 
14020 16429 | System flags | 


| 402E | 16430 . String length (2 bytes) 
| 4030 16432 Next item in syntax table 
4032 16434 | RND seed. Set by RAND | 


| 4034; 16436 | Frame counter (used by PAUSE) 
| 4036 | 16438 | Last PLOT column 
| 4037 | 16439 | Last PLOT row | 
| A038 16440 | Used by LPRINT | 
| 4039 | 16441 | Column number for PRINT | 
| 4038 | 16442 Line number for PRINT 
| 4038 | 16443 Flags 

403C | 16444 Printer buffer (33 bytes) 

4050 | 16477 BASIC’s calculator menory 

4078 | 16507 Not used 

407D | 16509 Start of Program file 


Top of 2K КАН 


47FF | 18431 


— Б 5 с 


103Е5, 997 
|O63E 1598 
0784 1972 
07F1 2033 
|08Ғ5 2293 
| 0424. 2602 
OACF 2767 
| ОВАЕ 2991 
| OCOE| 3086 
10029: 3113 
| ОСВА 3258 
|0Ғ20 3872 
| 0F28 3880 
0Ғ52 3922 
1310 4893 
1405 5125 
таса 5322 
1914 6420 
1996) 6550 
1889) 6825 
1E00| 7680 
1FFF| 8191 
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Table 8-2. КОМ Addresses 


Connents 
Code C7, RST 0 Start-up 
Code CF, RST 8 Error reports 
Code D7, RST 10 Print 


Code E7, RST 20 


Code F7, RST 30 Variables spaces 


; Op Code FF, RST 38 1/0 TV raster 
; Non- "aiia Ee 1/0 (TU) display 
| Keyboard character CODEs 


Keyboard function CODEs 
Keyboard graphics mode CODEs 
Called by LOAD and SAVE 

TV display 


| Keyboard scan 
| SAVE command 


С LOAD command 


Top of RAM and machine stack 
Initialize RAM, cursor, LIST 

RASIC interpreter 

Keyboard interpreter from 2BB address 
Used by print RST 10 

Inserts spaces in ТУ display (2K RAM) 
CLS command 

PRINT command 


: PLOT and UNPLOT commands 


SCROLL command 

BASIC tables 

BASIC interpreter (see 0636) 
FAST command 

SLOW command 

Nuseric conversion 

LET command 


| DIM command 
| Floating point routine 
| Function table 


! To 


Floating point 
Function calculations 
Character dot patterns 
of КОМ 


Code DF, RST 18 Read BASIC program byte 


Code EF, RST 28 Floating point (jump 1990) | 


APPENDIX А 


This appendix consists of a set of tape programs with a 
description of each program. The following nine programs 
are included: 


Program Разе 
&-0 MENU А-3 
6-1 CALCULATOR А-5 
А-2 LENGTHS А-7 
8-2 VOLUMES й-9 
А-4 WEIGHTS А-11 
А-5 LOAN TABLE &-13 
8-4 BAR CHART й-15 
А-7 LARGE NUMERALS А-17 
4-8 SIGN OFF 8-19 


These programs are intended as an exercise for learning 
your computer. Туре in the program listings and SAVE then 
on tape. You will quickly learn the keyboard, editor, 
SAVE, and LOAD commands. Study the description of each 
program that is given before each program and look for 
each key idea. 


Type in the MENU first but don’t RUN it until after saving 
all prograss. You will also learn the advantages and 
disadvantages of menus. The tape menu is easy to use but 
‘takes considerable time to LOAD a program if it is near 

the end of a tape with many programs. You мау wish іс use 
the cassette microphone to record the паме of the ргозгай 
on tape just prior to saving it. You can then use the fast 
mode and rewind to locate the file. 


А-1 


"MENU" PROGRAM. 
Description: 


А MENU is a list of programs displayed on the screen for 
your selection. It is logical to place it at the begin- 
ning of the cassette tape. This program: 


-Tells you the programs on the tape. 
-Allows you to select a program by number. 


Procedure: 
To load, display, and use a menu perform these steps. 


1. Type in LOAD "" but don’t press ENTER as yet. 
2, Start the cassette in the "play" mode. 
3. Press ENTER 
4. 85 words appear on the screen, stop the tape. 
5. From the list displayed, select the number 
of the program you wish. 
4. Start the cassette again in the "play" sode. 
7. Press ENTER. 
8. When the stable display reappears, stop the tape. 


Remarks: 


The "key" idea is on line 370. When you INPUT а number, 
it is assigned to A$ and automatically loads the progran. 


Line 10 the program name for loading is "0" 
100-250 is just a show-off title 
110 a FAUSE 50 is about one second 
120-150 FOR NEXT loop draws top and bottom of box 
130 CHR$ 134 is the * character 
160-190 FOR NEXT loop draws sides of box 
250 clears the screen 
260-350 displays the menu 
360 waits for a number to be E 
370 is for auto load of selected progran 
400 if MENU program is saved using GOTO 400, 


the program is run automatically when loaded. 


А-2 


410 


Program й-0, "MENU" 


REM "0" 

REM (C) R. ORRFELT 

REM JULY 1982 

PRINT "I АМ YOUR " 

PAUSE 50 

FOR I-7 TO 23 

PRINT AT 15,1;CHR$ 134 
PRINT АТ 6,I;CHR$ 134 
NEXT I 

FOR 1-6 TO 15 

PRINT AT I,7;CHR$ 134 
PRINT AT 1,23;CHR$ 134 
NEXT 1 

PAUSE 50 

PRINT AT 10,13; "2X81" 
PAUSE 50 

PRINT AT 19,23;"HI THERE" 
PAUSE 50 

CLS 

PRINT "SELECT FILE BY NUMBER: 
PRINT 

PRINT "1 CALCULATOR", 
PRINT "5 LOAN TABLE" 
PRINT "2 LENGTHS", 

PRINT "à BAR CHART" 
PRINT "3 VOLUMES", 

PRINT "7 LARGE NUMERALS" 
PRINT "4 UEIGHTS", 

PRINT "8 SIGN OFF" 

INPUT A$ 


SAVE "0" 
GOTO 20 


" 
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"CALCULATOR" PROGRAM. 
Description: 


This program simulates the functions of a hand calculator. 
1% operates on the last value (starting with 0) and dis- 
plays the input and neu value. The screen fills and then 
scrolls as neu calculations are displayed at the bottom 
line. The alphabet is locked-out (except M for memory). 
Pressing the ENTER key sets the memory to the last value. 
Pressing the M key retrieves the memory value. 


Functions include:  *,-,9,**,/,PI,SIN,C05, TAN, ASN, ACS ATN, 
LN,EXP,INT, and SQR. 


Procedure: Load and RUN this program. 


1. ENTER a number without a function for a new series. 

2, ENTER a function (*,-,*,**,0r /) followed by a value. 
Use a number or an expression using any function(s). 

2. Pressing the ENTER key sets memory to the last total. 
The M key can now be used to "recall" the memory value. 


Remarks: 
The "key" idea is line 190 which checks for the function. 


Line 100 prints the title 
110 spaces one line 
120 initializes memory to zero 
130 initializes value to zera 
140 initializes string to "START" 
160 display line 
170 input statement 
180 checks for "ENTER-only" entry (sets memory) 
190 checks for %,-,%,%%,0ғ / functions 
200 error check for non-valid input 
210 gets the first character in string entry and 
converts function to value (Е+Е$) 
230 gets next input after displaying results 
500 sets memory to present value 
510 displays memory value 
520 gets next input 
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Program А-1. "CALCULATOR" 


КЕН "4 " 

REM (С) R. ORRFELT 

REM JULY 1982 

PRINT TAB 10; "CALCULATOR" 


0 PRINT 


LET М=0 

LET У-д 

LET A$-"START" 
FÜR 152 TD 21 


) PRINT (L-2);" ":А8,9 


INPUT 8% 

IF A$"" THEN GOTO 500 

LET C-CUDE A$ 

IF C237 AND С550 ОК C250 AND С<64 THEN GOTO 170 
IF C226 AND 0525 ОК C=216 THEN LET AS=STRE 9448 
LET U-VAL ñ$ 


) NEXT L 


CLS 

GOTO 150 

LET Н-у 

PRINT "Их "+M 
GOTO 230 


"LENGTHS" PROGRAM. 


Description: 


This program converts one unit of length to another. The 
two that follow are similar in structure. You can do other 
conversion programs using these as a guide. These programs 
let you select the unit by number. 


Procedure: 


1. LOAD "2" and RUN the progran. 
2. ENTER the number for the units you have. 
3. ENTER the number for the units you want. 
4. ENTER the first value you want to convert. 
5. Continue entering values for conversion 
until the screen is full. 
6. ENTER STOP and then RUN for моге conversions. 


Remarks; 


The "key" idea is line 450 where M converts to millimeters 
and X converts {о the units you want. 


Lines 100-180 define A$ 
200-280 print selection list 
300-330 input "from" units (А) 
340-350 input "to" units (Е) 
360-370 input first amount 
400 calculate GOSUB line X 


420 save first conversion factor (M) 
430-440 get next conversion factor (X) 
450 calculate and print conversion 
460 get ihe next input 


502-512 conversion factors 
Program А-2. "LENGTHS" 
10 КЕМ "2" 
100 DIM АЗ(8,12) 
110 LET ASCIOZ"INCHES " 
120 LET A$(2)="FEET " 
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Program A- 


139 
140 
159 
169 
179 
189 
200 
210 
220 
230 
300 
319 


LET A$ 
LET ñ$ 
LET A$ 
LET ñ$ 
LET A$ 
LET A$ 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
PRINT 
INPUT 
LET x= 
80518 
LET M= 
LET. X= 
GOSUB 
PRINT 
GOTO 3 
LET X= 
RETURN 
LET X= 


9 RETURN 


LET X= 
RETURN 
LET X= 
RETURN 
LET X= 
RETURN 
LET X= 
RETURN 
LET ХЕ 
RETURN 
LET X= 
RETURN 


2, "LENGTHS" (cont.) 


(3)="YARDS " 
(4)= "MILES " 
(S)-"NILLIMETERS " 
(&)-"CENTIMETERS " 
(2)-"METERS " 
(8)="KILOMETERS " 

"1 "549 (1), "5 "54800 
"2 1549 (2) "6 "589(6) 
"3 "даф (3), "7 "54(7) 
"A "5 А9(4), "8 ":88(8) 
"SELECT CONVERSION" 
"FROM: "; 

5 

88(6):" TO "; 

В 

88 (В) 

“INPUT AMOUNTS" 

с 

2+4+500 

X 

X 

2+8+500 

X 


Cj" "jA$(0); "2" Сан" ";A$(B) 


70 
25.4 


304.8 
914.4 
1609344 
i 

10 

1000 


1000000 


"VOLUMES" PROGRAM. 


Description: 


This program converts one unit of volume to another. You 
can select the units by number, 


Procedure: 


1. LOAD "3" and RUN the progran. 
2. ENTER the number for the units you have. 
3. ENTER the number for the units you want. 
4, ENTER the first value you want to convert. 
5. Continue entering values for conversion 
until the screen is full. 
6. ENTER STOP and then RUN for more conversions. 


Remarks: 


The "key" idea is line 450 where M converts to cubic centi- 
meters and X converts to the units you want. 


Lines 100-180 define A$ 
200-280 print selection list 
300-330 input “from” units (A) 
340-350 input "to" units (B) 
360-370 input first amount 


400 calculate GOSUB line X 

420 save first conversion factor (M) 
430-440 get next conversion factor (X) 
450 calculate and print conversion 


460 get the next input 
502-512 conversion factors 


Program A-3. "VOLUMES" 
10 REM "3" 
100 DIM АЗ(8,12) 


110 LET A$(1)="TEASPOONS " 
120 LET A$(2)="TABLESPOONS " 
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Program А-3. "VOLUMES" (cont.) 


130 LET A$(3)="CUPS" 
140 LET A$(4)="PINTS " 

150 LET A$(5)-"GUARTS " 

180 LET A$(6)="GALLONS 

170 LET A$(7)="CUBIC CHS " 

180 LET A$(8)="LITERS " 

200 PRINT "1 "sA$(1),"5 ":48(5) 
210 PRINT "2 ":4$(2),"6 "1А%(4) 
220 PRINT "3 ":8$(2),"2 ":4802) 
230 PRINT "4 ":4$(4),"8 ";4%(8) 
300 PRINT "SELECT CONVERSION" 
310 PRINT "FROM: "š 

320 INPUT A 

330 PRINT A$(4);" TO "; 

340 INPUT B 

350 PRINT A$(B) 

360 PRINT “INPUT AMOUNTS" 

370 INPUT С 

400 LET Хэ2484500 

410 GOSUB X 

420 LET M=X 

430 LET Х<248+500 

440 GOSUB X 

450 PRINT Co" ";A$(4);"s" :C&M/X;" "SASCB) 
460 GOTO 370 

502 LET Х-4.928 

503 RETURN 

504 LET X=14.784 

505 RETURN 

506 LET Х-236.5425 

507 RETURN 

508 LET Х=473.125 

509 RETURN 

510 LET Х=946.25 

511 RETURN 

512 LET Х-3785 

513 RETURN 

514 LET Х-1 

515 RETURN 

516 LET X=1000 

517 RETURN 
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"UETGHTS" PROGRAM. 
Description: 


This progra converts one unit of weight to another. You 
can select the units by number. 


Procedure: 


1. LOAD "4" and RUN the program. 
2. ENTER the number for the units you have. 
3. ENTER the number for the units you want. 
4. ENTER the first value you want to convert. 
5. Continue entering values for conversion 
until the screen is full. 
8. ENTER STOP and then RUN for моге conversions. 


Remarks: 


The "key" idea is line 450 where M converts to grams and X 
converts to the units you want. 


Lines 100-180 define A$ 
200-280 print selection list 
300-330 input "from" units (А) 
340-350 input "to" units (B) 
350-370 input first amount 
400 calculate GOSUB line X 


420 save first conversion factor (M) 
430-440 get next conversion factor (X) 
450 calculate and print conversion 
460 get the nexi input 


502-512 conversion factors 


Program А-4. "WEIGHTS" 


10 REM "4" 

100 DIM 4$(8,12) 

110 LET A$(1)="BRAINS " 
120 LET A$(2)-"DUNCES " 


Program А-4. "UEIGHTS" (cont.) 


130 LET A$(3)="POUNDS " 

140 LET A$(4)="TONS " 

150 LET A$(S)S"MILLIGRAMS " 

160 LET A$(6)="GRANS " 

170 LET 4$(7)-"KILOGRAMS " 

180 LET A$(8)="NETRIC TONS " 
200 PRINT "1 ";A$(1),"5 ";A$(5) 
210 PRINT "2 ";4$(2),"6 ":4$(6) 
220 PRINT "3 ":44(3) "7 ":4$(7) 
230 PRINT "4 ";4$(4),"B ":А8(8) 
300 PRINT "SELECT CONVERSION" 
310 PRINT "FROM: "; 

320 INPUT А 

330 PRINT 4$(4);" TO "; 

340 INPUT B 

350 PRINT A$(B) 

360 PRINT "INPUT AMOUNTS" 

370 INPUT C 

400 LET X=2%A+500 

410 GOSUB X 

420 LET М=Х 

430 LET Х<2#8+500 

440 BOSUB X 

450 PRINT Cy" ";4$(4);"z" I C&M/X;" ";0$(B) 
480 GOTO 370 

502 LET Х=.04481 

503 RETURN 

504 LET Х=28.35 

505 RETURN 

506 LET X=453.6 

507 RETURN 

508 LET Х-9,072Е5 

509 RETURN 

510 LET X=.001 

511 RETURN 

512 LET X=1 

513 RETURN 

514 LET X=1000 

515 RETURN | 

516 LET Х=10Е6 

517 RETURN 


“LOAN TABLE" PROGRAM. 


Descriptions 


This program constructs a mortgage loan awortization table 
for an existing loan. Required input information is the 
total amount of the loan, interest rate, the monthly pay- 
ment amount, and the starting month of the loan. The in- 
terest, credit (reduction of principal), and balance owed 
are printed for each month. Total interest for the year is 
printed for income tax purpose. 


Procedures 


1. Have the required information ready (above) and LOAD 
and RUN the progran. 

2. For "INPUT STARTING AMOUNT: $" ENTER the principal 
of the loan. 

3. For "INTEREST RATE: " ENTER the annual interest rate 
i.e. Рог 124 enter 12. 

4. For “PAYMENTS: $" ENTER the regular monthly payment 
amount. 

5. For "FIRST MONTH: " ENTER the number of the month 
{1 through 12). 

ó. The first years table will be displayed. Enter 
"CONT" for each of the following years. 

7. The last paysent will be a “baloon" payment. 


Remarks: 


The "key" calculation is line 250. Interest is rounded to 
ihe next highest penny as is the loan industry standard. 


Line 100-210 input prompts 
2208240 X is total interest 


300 N is current month 

310 J is current interest 

320 Rois credit (amount applied to loan) 
330 B is balance 


500-520 displays the final payment and interest total 
for the last year. 


Ргозгам А-5: "LOAN TABLE" 


REM "5" 
REM (C) R. ORRFELT 

REM JULY 1982 

PRINT "INPUT STARTING AMOUNT: $"; 
INPUT B 

PRINT B 

PRINT "INTEREST RATE: "; 

INPUT I 

PRINT I 

PRINT "PAYMENTS: $"; 

INPUT P 

PRINT P 

PRINT "FIRST MONTH: "; 

INPUT M 

PRINT M 

LET Хед 

PRINT "MO. INT.";TAB 13;"CREDIT"; 
TAB 22;"BALANCE", , , 

FOR N=M TO 12 

LET JINT ((8#1/12)+.5) 

LET RsP-(J/100) 

LET B=B-R 

IF B«R THEN 6010 500 

PRINT N;TAB 3; 

PRINT J/100;TAB 13 

PRINT R;TAB 22; 

PRINT B 

LET XsX*(J/100) 

NEXT N 

PRINT 

PRINT "TOTAL INTEREST: $";X 

PRINT 

LET й-1 

PRINT "ENTER ""CONT"" FOR NEXT YEAR" 
STOP 

8010 220 

PRINT N;TAB 334/100 

PRINT "LAST PAYMENT: $":B+R+J/100 
PRINT "TOTAL INTEREST: $"; Х+.)/100 


"ВАК CHART" PROGRAM. 
Description: 


Bar charts can be used to show annual trends to a large 
group. This program allows you to ENTER data one month 
at a time. Use this to support a lecture. 


Procedure: 


1. LOAD "ó" and RUN this program, 

2. The program automatically prints the scales. 

3. ENTER an amount from 0 to 20 for each month, 
one month at a tine. 


Remarks: 


The "key" idea is line 340 that calculates and prints the 
bar segments. 


Line 100-130 prints a vertical scale from 0 to 20 
200-250 using string slicing prints the first letter 
of the twelve months. 


300 loops for 12 inputs 
316 ENTER amount one month at a tine 
320-400 plot the amount 


410 get the next month input 


4-14 


Program A-é. "BAR CHART" 


REM "6" 

REM (C) R. ORRFELT 

REM JULY 1982 

PRINT "20",,,,"18",,,,"16",,,, 
PRINT "14",,,,"12",,, , 10", ру 
PRINT " 8",,,," &",,,," 4",,,, 
PRINT " 2",,,,". 0? 

ПІН 49012) 

LET А$=" ОРМАН JJASONT" 

FOR 851 TO 12 

FRINT AT 21,(24443); 

PRINT &$(4) 

NEXT а 

FOR А=1 TO 12 

INPUT Е 

LET C=20-B 

FOR 1-0 TO 19 

PRINT АТ (141), (28843), 

IF 1-0 THEN PRINT "а" 14562 
IF =C THEN GOTO 400 

PRINT "я" [3 3 
NEXT hH 

NEXT А 


"LARGE NUMERALS" PROGRAM. 

Description: 

The purpose here is to create large numerals for viewing by 
a large group of people. Characters are five tines normal 
height. Up to eight characters can be displayed, all in- 


line. Characters are: 


0,1,2,5,4,5,6,7,8,9,.,:, and a space, 


The letter 4 is 151 B$ = Ü Ü 
1:2 B$ = Ü Ü 
153 43 = 000 
154 13 = OQ 
1=5 13 = 0 


Frocedure: 


1. LOAD "7" and RUN this progran. 
2. ENTER up to eight characcter i.e. 12:30:00 
3. The characters will be displayed. 


Remarks: 


The "key" idea here is line 260 which calculates the GOSUB 
line numbers. For example, if N-"O" the value is 0. Times 
10 is still zero. The "0" subroutine starts at line 300. 
F$ is ihe four characters to be printed, top and bottom is 
а bar; otherwise print a block, space, block, space. 


Lines 100-130 define the segments needed 
140-200 ЕФ is input characters 


210-310 tua loops I(! to 5) segment, 


МОТ to 8) = character. 
500-592 0 through ? segment generators 
600 space character 
200 period 
800 semicolon 


20 


Program й-7. "LARGE NUMERALS” 


REM "7" 

КЕН (C) К. ORRFELT 

REM JULY 1982 

LET Ас" аа " [3 Па Из JÚ 1 
LET B$z"3 4" 141 16 JL 1 
LET C3z"3  " [g 11211 
LET D$z" 34" 11-16 121 
DIM ES(8) 

LET E$-" Ж 

PRINT АТ 10,19; 

INPUT E$ 
FOR I=1 10 
FOR N=1 TO 
IF ES${N)=" " THEN GOTO 600 
IF ES(N)="." THEN GOTO 700 
IF ES(N)="s" THEN GOTO 800 
LET 6:500*(UAL ES(N) #10) 
GOSUB 6 

PRINT АТ (1410), (N#4-4); 
PRINT F$ 

NEXT N 

NEXT I 

STOP 

LET ЕЗ=А% 

IF 151 THEN RETURN 

IF 1-5 THEN RETURN 


z со са 


THEN RETURN 

THEN LET F$=A$ 
THEN LET F$=D$ 
LET F$-4$ 
THEN LET F$-D$ 
THEN LET F$=A$ 


Lond 
тті 
СІ bed кә ded deep ез eM 
i H H H H H 
ооло N N e d < 
-4 
x 
m 
= 


= 


540 


350 


391 


552 


Proqram 


LET F$=B$ 


8-2. "LARGE NUMERALS" (cont.) 


IF I<=2 THEN RETURN 


LET FS=A$ 
IF 153 THEN 
GOTO 310 
LET FS=C$ 
IF 152 THEN 
GOTO 530 
LET FS=C$ 
IF I-2 THEN 
GOTO 580 
LET FS=A$ 
IF 1-1 THEN 
GOTO 510 

IF I-1 THEN 
IF 1-2 THEN 
IF 153 THEN 
IF 154 THEN 
IF I=5 THEN 
RETURN 

LET F$=D$ 
IF 1-4 THEN 
GATO 580 
LET Ғӛ-" 
6010 280 
LET F$=D$ 


) IF I=5 THEN 


8070 400 
LET F%=" g 


IF 152 OR I= 


8010 400 
STOP 


RETURN 


RETURN 


RETURN 


RETURN 


LET F$-4$ 
LET F$-B$ 
LET F$-4$ 
LET Ғ%-В% 
LET Ез<й8 


RETURN 


8010 280 


= T dig На 
о THEN GOTO 280 


"SIGN OFF" PROGRAM. 


This progran demonstrates the use of nested loops (FOR NEXT 
statements). For the 13 star flag or for the 50 star flag 
the graphics don^t work out too well. However, the 48 star 
flag divides easily into just a few patterns which can be 
repeated, The patterns could be divided in different ways. 
For this program the first six lines of the flag are divid- 
ed into three groups - a line of stars and dark stripe and 
then the next line of stars, This is repeated three 

times. Next four alternating dark and light stripes are 
drawn. Finally the pole is drawn over the last light 
stripe leaving the 7 dark and 6 light stripes. 


Procedure: 

Just LOAD "S" and RUN this program. You don't have to do 
anything. 

Remarks: 


The "key" idea here are the loops nested within a larger 
loop. 


Line 19 "8" is for loading from the menu 
100 Тор of flag pole 
110 C is the outside loop counter 
120 А is the counter for "4" 
190 B is the counter for а stripe 
190-210 is the same as 120-140 (a Б050Е could be used) 
240 С is the counter for stripes at the bottom 
250 А is the counter for the stripe width 
280 sets the pointer to the next line 
290 a white stripe 
310 prints the flag pole over last white stripe 
320 B is the flag pole length 
350 positions sign-off 
360 dramatic pause 


400 freeze display until a key is pressed 


19 КЕМ "8" 
20 REM (С) К. ORRFELT 
30 REM JULY 1982 
100 PRINT "ga" — [qsHJ 
110 FOR C-1 TO 3 
120 FOR А-1 TO В 
130 PRINT "ж"; 
140 NEXT А 
150 FOR B=} TO 20 
180 PRINT "а"; — Газ? 
170 NEXT В 
180 FRINT 
190 FOR А=1 TD В 
200 PRINT "ж"; 
210 NEXT А 
220 PRINT 
230 NEXT C 
240 FOR СЕТ TO 4 
250 FOR A=1 TO 28 
280 PRINT "a": ГазА1 
270 NEXT А 
280 PRINT 
290 PRINT 
300 NEXT С 
310 PRINT AT 14,0; 
320 FOR B=} TD 8 
330 PRINT "4" tach] 
440 NEXT В 
350 PRINT AT 20,20: 
360 PAUSE 50 
370 PRINT "THE END" 
400 ТЕ INKEY$="" THEN GOTO 400 


Ргодгай 8-8, "SIGN ПЕР" 


GLOSSARY 


ABS - Absolute value. (Function under the В key) changes a 
negative number io positive. Positive numbers unchanged. 


ADDRESS - A number from 0 to 65535 used by the CFU to 
select а storage area of RAM ог КОМ. 


BIT - Smallest element of information storage. Represented 
by a 1 or 0. 


BINARY - A numbering system using bits. For example, a 
binary 1111 1111 1111 1111 is 65535 in decimal. 


BYTE - Eight bits. Тһе 2808 CPU moves information one byte 
at a time. Each memory address stores one byte. 


CHARACTER SET - Numbers, letters, and symbols that can be 
displayed on the TV screen. It is stored in the ROM. 


CLEAR - Keyword command erases numeric and string variables 
and the display file. The program file is not erased. 


CLS - Keyword command which erases the display file only. 


CODE - The one byte number of the first character in a 
string. Must be followed by a string (i.e. 45), 


CONSTANT - A decimal number when typed in a program. May 
be plus or minus. 


COMMAND - One of the words on the keyboard which control 
the computer. Except for ENTER they can be used as 
statements in this computer. 

COMPARE - Test for equality. Result is true or false. 


CPU - Central Processing Unit. Тһе 2804 CPU microprocessor. 


DATE - Hardware logic element. 


BLOSSARY (cont.) 


DIM - Keyword for dimension. Used to reserve space in 
variables file for numbers or strings. 


EXPRESSION - А formula or function which results in a 
number, 8 logical expression results in a 1 or 0. 


FILE - One of the areas in memory used to store informa- 
tion. Also information stored оп tape. 


FIRMUARE - Programs which cannot be changed from the 
keyboard (ROM). 


HEX - Short for hexadecimal (16) numbering system. 
INT - Integer. Whole number such as needed for counting. 


INTERRUPT - An event external to the Z80A causing the 
program to go to a subroutine (used in machine code). 


INVERSE VIDEO - White characters on black background. Used 
by graphics mode and for prompts. 


KEYWORD - One key entry of BASIC word to start a statement 
or after THEN. 


MACHINE CORE - A program written byte for byte as required 
hy the CPU (2804). 


MODULATOR - Hardware device that converts display to TV 
channel 2 or 3. 


NUMERIC VARIABLE - The name of the place in the КАЙ 
variables file where a number is stored. 


RAM - Random Access Memory. The 2K memory chip inside the 
computer or the 14K RAM pack. 


BLÜSSARY (cont.) 
REBOOT - Computer tere for turning power off and then on 
to start over. 


REGULATOR - А device that maintains a steady 50 for 
computer circuits from the 9U supply, 


ROM - Read Only Memory, The ROM holds the BASIC language 
and other programs needed to make the computer operate. 


SOFTWARE - Programs and data that мау be saved оп tape or 
loaded into RAN memory. 


STATEMENT - Опе line in a BASIC program.  Staris with a 
BASIC keyword and followed by required information. 


STRING - A sequence of characters representing only 
themselves. 


STRING SLICING ~ А method of specifying part of a string. 


STRING VARIABLE - The паме of the place in the variables 
file where a string is stored. 


SUBROUTINE - А short program used by a sain program. Used 
by entering GOSUB and the starting line number. 


TOKEN ~ One byte representation of а word used internally 
by the computer. Keywords, commands, and function памех 
use tokens, 


TRUE ~ Test resulting in a number other than 0. 


1804 -Microprocessor. Hardware device used by the 1000. 


6-3 
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ЕККАТА 
HIGHFALUTIN^ СОМРИТТН“ 


Make the following changes as indicated: 


Оп 


On 


On 


On 


On 


On 


On 


On 


On 


page 4-6 add line 100: 
100 LET COUNT=0 


page 4-8 change line 640 to read: 
640 LET Ү-22%18%С05 А 


page 5-5 add a space at the end of line 420: 
420 PRINT АТ 14,N;" 9988 " Г 11452118 1Га 115111 1 


page 5-8 change line 1010 to read: 
1010 PRINT AT 8,X;E$ 


page 5-12 cross out the extra IF on line 440: 
440 IF P=21 ОК D-21 THEN GOTO 5010 


page 8-10 add the following line: 
90 DIM H$(4) 


page А-5 line 180 should read: 
180 IF A$-"" THEN GOTO 500 


page A-11 correct line 516: 
516 LET Х=1Е& 


page A-13 add a ";" at the end of line 310: 
310 PRINT J/100; TAB 13; 


$9.95 


ЖЕ 


